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B.1 C Language Source Code 


Appendix A 
SCREEN DESCRIPTION FILES 


This appendix contains the screen description files from which the U parser produces C 
code that can be compiled and linked with other object modules to produce an executable image. 
These files describe the appearance of the user interaction screens, and also determine what 
action the program takes when users elect specific actions. 


A.1 Screen Description File for Introductory Portions of ASAN 


PE ee EF ID ED Ee le iat An lah ls ae ee A a le nh ce ge a A ld ee eS es i et 


~TRCIADE STATMEEWT FOR THE ASAN typedef DEFINITIONS NEEDED TO 
- COMPILE USUBS.C WITHOUT INCURRING THE WRATE OF THE CCOPILER 


GP OP Se SE Ph BE 8 a pe ln ee SOS SS See eaewhewreweeee 


Ee as a A ES SP a ln me ga DD A ee ae SE TF DS SD SY A OW ec tee ey 
Se ee ee lee a eR ee a Ar ct ge ap ln ED al es le ee eS SP DP ey ee dA hh ED SP 


LP Ee eA ae se a le A PY FD DS le a ee a a A elle an ts a ag a SS te ee le eG > 


pickable nO 
treiles "aniuals remain im list” 
} 
VARIABLE qual entries { 

type 

format %5d 

} 

DATUM qualif { 
aun rows 2 
uum columas 32 
variable qual_ entries, 0, 10 
piakable wo 
leader "Yhaus far“ 
trailer "emtries qualify” 


num _colwmas 33 “ 
variable qual entries, 9 , 0 
trailer "citations mectiag criteria’ 


leader "Dispiay shows number" 
trailer "of" 
piakable mo 


TEXTLIQZ cancecktxzt ("CANCEL SEARCE“} 


SOTTCOR enaceckh { 
aua_rows 2 
uum columms 17 
tartiline anacschtzt, 90,2 
helpfile halp/caclsrch. hip 
} 


helpfile help/coatacts.hip 
} 


FEXTLINE humentxt {"*Interrogate humas effects. citstioa index” } 


BUTTCe human { 
numa rows i 
aun columas 50 
teztline humantzt, © ,2 
helpfile halp/humcit .hip 
} 


TEHXTLINZ animaltxt {"Interrogute animal effects citatica index” } 


sorrcer animal { 
num rows 1 
num colums 50 
taezt line animaltst, 0 ,2 
helpfiie help/ammlait .hip 
) 


TEXTLINR etructzt ("Interrogate structural effects citation inder”} 


BOrToN etxruct { 
num rows i 
aum_columas 50 
tertline etructzt, 0 ,2 
healpfile help/streteit hip 
} 


FEXTLINR socaictxt {*Interrogeste moise & scaia boom modeling citation inder”} 


BUPTTOm scaic { 
au rows pe 
atm columms 606 
tazt line scaictst, 0 ,2 


ea et ee meee 


a@n rows 10 
au colums 78 
line 0,0, 0,77 
texstiline seelectdbtxt, 1,15 
battoa eoatacts, 3,10, "CALL qeetep", 
"MEW SCREEN coatectecreca” 
bettoa human, 4,10, "CAIZL quetup”, 
“HEW_SCREEM hoitiscra* 
bettoa enainal, 3,10, “CALL qeetup", 
“HEW SCREEN acitiscra” 
bettoa struct, 6,10, "CALL qeetup”, 
"NEW SCREEN scitileara” 
buttoa sonia, 7,20, "CALL qsetup", 
; “HEW SCREEN mcitilecrn® 
battoa legisiat, 6,10, "KEW SCREEW legislatecreen" 
} 
scemem dbiag { 
mainscresn YES 
border TEs 
window iaquiry, 10,21 
- window majoraction4, 19,1 
window iatrowindowl, 1, i 
) 
“~ Declaraticas for PODFF OF COMPACT DATARASE SCREEN 


TRETLINE aaffOldtzt (°AFF-014 attributes”) 


BOTTOM anffel4 { 
aw rows i 
uum _columas 20 
tart line aafrsiétzt, 0 ,2 
helptiia help/cafféi4.hip 
} 


TELINE ctribeltzt (“?ribel"} 
BUTTON ctribel { 

at rowe 4 

aun columas § 


textline otribaltxt, 0 ,2 
belpfile help/atribel.hip 
} 


TEXTLIUE cmilitarytzt {("Military”} 


textline apilitarytxt, 0 ,2 
helpfile help/amilitar.hip 


surrTce estate { 
aun rows a 
au _colums 8 
tazstline estatetzt, 0 ,2 
heipfile help/ostate.hip 
} 


TExXTLINZ secuntytzt (°*Ocunty”} 


BUTTON cecunty { 
aum_rows i 
awn columms § 
tart line soouatytzt, 0 ,2 
helpfile help/ocounty. hip 
} 


TEXTLINE caitytxt {"City*} 


worrcs aaity { 
aum— rows i | 
mum _colums 7 
textline saitytzt, 9 ,2 . 
heipfiie help/scity. hip . 
} 


VARIABLE address { 
type rrrnco8rd » 
format %-25s8 
} 


DATUM. addrese { 
aun rows i 


aus ocolums 77 
wariable address, 0 ,28 
leader "City and/or state eddrese: * 


helpfile help/addrees . hip 
} 
VARIABLE ccoatnam { 

type S#FRING 

format &-18e 

} 


DATUM ecatnam { 
aum rows a 


aum oo lume 77 

variable coutaam, O ,29 

lesder "Point of ccatact last name: * 

helpfile help/ccatasam.hip Py 


} 


VARIABLE affselec { 

type  #s?Friwa 

format &~18e 

} 

DATUM affseiecd { 
au rows zi 
num _columss 50 
variable effeeles, 0 , 33 
ieadex “Affiliation curreatiy selected: * 
piakable be] 

} 


TEXTLINE ageatxt {"Ageacy:"} 


TEXTLINE searchtxt ("Search by:"} 


WINDOW ooatact search { 
atm rows 17 
awm columas 78 


line 6,0, 0,77 

teztline @eearchtzt, i, 1 

datum ocetuan, 3, 2 

datun addrees, 4, 1 

textlinze egentxt., 8, 2 

button oaity, 8,10, “CALL setaff o° 

buttoa eoounty, 5,16, “CALL setafe i* 

button estate, 5,27, “CALL setafe 2° 

batton efedarai, 8,37, “CALL setaf?f 3° 

battoa emilitary, 5,48, "CALL setaff 4" 

Dattoa etribdel, 5,60, "CALL setaff 8° 

datum affeelec, 6, i 

buttoca oaffeld, 9, 1, “HEW_SCREEN ccatatsearch* 

bettoa steearch, 16, 1, “CALL pesrah" 

buttoca eaancech, 26,45, "CALL qeetup’, 
“REW_SCREEN dbing* 

) 


title “POINT OF CONTACT DATABASE“ 
window ecutactsearch, 2,2 
~ wiadow majoracticaé, 13,1 
border Yus 
} 
- Poiat of coatact attribute search screen 


FRETLIME minoretzt§ ("Minor attributes") 
TEXTLINE scrolitst (“Scroll window for more alternatives” } 


TEE2BIOCcK minorat { 


fi lease tztbik/aiser.txt 
awa rowe i190 
au—_colwmas 38s 
border YRs 
} 
WINDOW sinorat { 
atm rows 10 
awe_columsse 38 
testline minoretzt, 1,0 
taztbloek minorat, 2,0 
teztline scrolltzt, 12,06 


nus columns 77 
wariable majorat, 0 ,22 
leader “Type major attribute: * 


helpfile help/major.hlp 


} 
TEXTLINZ majoratxt {Major attributes" } 


aum_rows 17 

sun colums 78 

line 6,6, 06,77 

datum majoret, i, 1 +, "ADD WOMDOW minoret 5 41° 
éatun minorst, 2, 1 ~, °CALD commy* 

taztline majoretzt, 4, 12 

textline serelitzt, 18, 1 


button eteearch, 16, 1,- “REMOVE _WOHDOW 
“CALL pasrah” 
button enncech, 16,45, °CALL qeetup’, 


SCREEN ocetatsearch { 


title "POINT Of COUPEACT AETRIVOTE SEARCH” 
window ccatetecearch, 2,2 
“ window majoractioné, 19,21 
border vas 
} 
- Point of ccatact display screen 


whheereER: all of these poc variables need to be declared in a header file 


0 ee 8 en a ee ee i a ee ee ee ee le oe De dl ee a et es ee ee 


VARIARLE F_MAME { 
foundin “VARCHAR ¢ name .arr" 


type eraRuNG 
format 8-106 
} 
DATUM coatactnamel { 
au rows a 
aun ool eas 25 
variable PEM, 0, 15 
ieadar *Seatact Mame: * 
pickable wo 


type Poa te 
format %-186 

) 

DATUM contactnamea2 { 
awn rows i 
aum columas 20 
variable i waMe, 9, 1 
pickabla wo 

} 


VARIABLE COUTITLE { -FIFLE may be a reserved word 
foundin “VARCHAR ccoatitile.arr" 


type sTRInG 
format 8-458 
} 
DATUM acatitie { 
awa rows i 
num columas 70 
variable COMPFTTLEZ, 0, 8 
ieader “TFitle:* 
pickable be) 


e-45e 


Bum _rows i 

am columns 790 

variable oericz, 0, 18 
leader "Office: * 
pickable wo 


type eFRIRG 
fcomeat. 2-488 
} 
DATUM agency { 
aw rowe 2 
am columas 70 
variable AGENCY DEPT, 0, 10 
leader "Agenay:° 
piakable wo 


} 


VARIABLE ST ADD DIV { 


~n@Roaly 25 characters for a street address? 


foundin "VARCHAR et _ edd div. arr 


type 
format. 


PPRIWG 
%-25e 


aun rows a 
awa_colwas 40 
variable PO BOX, 0, 18 
leader "Post Office Boz:* 
piakable Pe] 
} 
VARIABLE Misc ADD { 
foundin “VARCHAR misc _edd.arr” 
type FPrRIBG 
format %-108 


VARIABLE CIYY BASE { 


foundian “VARCHAR aity base.arr” 


type 
format 


erRInG 
8-280 


format 8-26 


DATUM estate { 
num rows i 
aun _ columns sS 
variable STATE, 0, 1 
pickable oe) 


type Py be | 
founat. 8-98 

} 

DATUM Eipaodea { 
aum rows i 
num columas 10 
vwariabie Srvcepa, 0, 1 
pickable b=) 

) 

VARIABLE MATL CODES { 
foundian "VARCRAR mail _code.arr" 
type SrTRiIna 
format %-106 


nun rows pf 

uum columns 40 

variable MATT, COON, 0, 12 
leader "Mail Code:"* 
pickable wo 


type Poy be or] 
format. 2-208 
} 
DATUM phoae { 
aum rows a 
aun _columes 46 
wariable PeCeZ, 0, 20 
leader “Falephosae Humber: * 
piakable wo 


aUE rows a 

aum scolumas 30 

vwariable AFFILIATIO, 6, 17 
leader “Affiliaticoa:= 
piakable moO 


} 


VARIABLE MAJOR ATTRIB { 
foundin "VARCHAR major _attrib.arrc" 
type SPRING 
format §-1¢e 

} 


DATUM major_attribete { 


atm—_ rows i 

aun columns 3s 

wariabie MAJUR_ ATTRIB, ©, 19 
leader “Major Attribute: ”* 
picackable wo 


} 


VARIABLE MINOR _APTRIBUTE { 
foundin “VARCHAR minor sttribute.arr” 
type srRING 


format. 8-480 

) 

DATUM minor attribute { 
awn _rowe a 
awa_ocolwms 70 
variable MINOR REYRIBUTE, Oo, is 
leader "Minor Attribete: * 
Pickebile mo 


fommat &-15e 
) 
DATUM area { 
aun rows 2 
aun columms 30 
variable AREA, 0, 7 
~ iJeader “AREA: *" ~ (whatever that means) 
pickable wo 
} 


type STRING 
format $-10s 
) 
DATUM ecope { 
aun _ vows i 
awe _colums 30 
variable SOorPE, 0, @ 
~ Jeader “Seope:" -(whatever that means) 
pickable wo 
} 


ata rows 17 

aun _columas 78 

line oO, Oo, 0,77 

datum coutactaamel, i, 2 
datum econtactaame?2, 1,40 
datum ccatitle, 2, 2 
datus office, 3, 2 
dat un agency, 4, 2 
datum ot_add div, 8, 2 
datum po_boz, €, 2 
datum misa add, ¢€,285 
datum aity base, 7, 2 
datun etate, 7,28 
datun sipoode, 7,38 
datum, mail soda, 8, 2 
éaatun phone, o, 2 
datum affiiiatio, 9,41 
datum major_attribute, 10, 2 
datum minor attribute, 11, 2 
datum erea, i2z, 2 
dot um scope, 12, 40 


} 
FEXTLINE nertaddr (“Show next addrese"} 


BUTTOM nextaddr { 
Bum rows i 
aun columns 25 
textline mestaddr, 0, 2 
halpfile help/nchelp . hip 
} 


WINDOW getoffscreen { 


awa rows 4 

awa_scolumas 78 

line 0, 0, 0,77 

battoa nextadd:, 2, 1, “CALL axtpoa* 
“~ betton eteearch, 2, 1, “CALL cumy”" 


buttoa eaacech, 2,45, “CALS, qeetup”, 


°MEN_SCREEN dbiag* 


} 
SCREEN poodisplay { 2 
title "DISPLAY POTHT Of COOPFACT YEFOSMATICN” 
window pocetuff, 2,2 
window qgatoftfscreen, is,i1 
border TEs 
} s 
“ Ramen effects aitatica database sareen 


VARIABLE titlafrag { 

fouadia "“VARCRAR titlefrag.arr” 

type erTRING 

format &~60e 

} 

DATUM titlefrag ( 
num rows i 
aun columas 65 : 
veriable  titiefreg, © ,0 
helpfile halp/titlfrag. hip 
} 


TRETLIMNE keywrdtxt (“Keyword astegories"} 
BUTTON keywra { 


au rows 2 

aum colume 25 

tertiine . keywretzt, Oo, 2 
healpfile help/kayword. hip 


awa rows b § 
aun columas 15 
variable dates2, 0 ,4 
leader "aad 
treiter " (year) ° 
helpfile healp/date.hip 
} 
VARTABLE datesl { 

type DFTSGER 

format %44 

} 

DAT datesi { 
aum_rows i 
mum columas 727 
variable aatesl, 6 ,14 
leader "Date between: " 
trailer “ (year) * 
helpfile halp/date.hip 
) 


VARIABLE avthornam { 


type STRING 


VARIABLE citautnaml { ~ Mote: The string lengths 
foundin “VARCEAR4O authorlist [0] .arr” ~ are to get by the parser. 
type STRING ~ The program will figure ott 
format &-308 ~ whether to allow 30 or 40 
} ~columas on the dieplay. 
DATUM citeutneml { 

ut rows bE 


aw solvens 40 


10 


variable aiteutaeml, 0, 9 
leader "Aathor:“ 
pickable wo 

} 


VARIABLE citeutnam2 { 


foundia "VARCHARAO authorlist [1] .arr" 
type @rRIna 
format  %-30e 
} 
DATUM citautnem? { 
num_rows i 
aun columms 40 
variable citawtean2, 0, 9 
pickable wo 
} 


VARIABLE citautaend { 


foundin "VARCHARGO euthorlist [2} .arr” 


au rows i 

aw colum=s 40 

variable eitautags, 0, 9 
piakable wo 


VARIABLE citeautmem4é { 


foundia "“VARCRAREZO avthorlist [3] .arr* 
type SrRING 

format %~-308 

} - 

DATUM citavtaam4 { 


atm rows a 

au columms 40 

variable aitautaemé, 0, 8 
piakable as] 


) 


VARIABLE citeutaenS { 


foundia “VARCEAR4O authorlist [4] arr" 
type SPRING 
format %-30s8 


au rows 1 
aum ccolumms 40 
variabie citautaessS, 0, 9 
picakable wo 


VARIABLE citautnamé { 


foundin “VARCEARAO authorlist [5] .arr” 
type STRING 

format %-20e8 

} : 

DATUM citautnamé { 


aum rows i 

atm columns 23 

variable eitautnemsé, 0, 0 
pickable wo 


) 


VARIABLE citautsem? { 


foundin "VARCEARAO authorlist [6]. arr” 
type FRING 
format %-208 


) 
DATUM citeutamn7 { 


aus rows 1 
nwE colwmae 23 
wariable citeutaam7, 0, 0 


pickable wo 
} 


VARIABLE citautnams { 


foundin "VARCEAR4O authorlist [7] .arz“ 
type STRING 
format %-20s8 


} 
DATUM citautnams { 


11 


pickable wo 
} 


VARIABLE citautnamld { 
foundia °“VARCHEAR4O authorlist [9] .arr" 
type ernina 
format %-20¢8 
) 
DATUM citeutaemi0O { 
aus rows 2 
awa _columas 23 
variable eitautnemlc, 9, 0 
pickable mo 


aun rows i¢é 
au colums 76 
line o, Oo, 0,77 
tert line searchtzst, 1, 1 
datum qualir, 1,45 
datum author, 3, 1, "CALL VCAPIPAL Cauthornam”, 
"HEWVALS" 
tezt line eetititx«t, 4, 1 
Gort ws, titlefrag, 4, 8, "CALI, VCAPTTAL étitlefrag’, 
"MEWVALS* 
detum Gatesi, ®, 1 
déatua Gutes2, 8,27 
buettoa keywrd, 10, 1, °CALL herehO10* 
bettoan etseerch, 15, 1, “CALL herah001" 
bettoa eancech, 15,45, "CALL qsetup”, 
“HEW SCREEN dbiag" 
} 
SCREEW hoitiscra { 
title “SUMAN EFFECTS CITATION sEARCE” 
window hoitisern, 2,1 
- Wwaisdow majoractica3, 18,1 
border TEs 
} 
- Declarations for animal effects citation database ecrean 


num rows a6 

aun oolwnas 78 

Line 0,96, 90,77 

test line searchtzt, 1, 1 

datum qualif, 1,45 

datus author, 3, 1, “CALI. VCAPTFAL éeuthorasm”, 
"HEWVALS" 

textiline emtititzt, 4, 1 

datun titiefrag, 4, 8, "CALI, VCAPIFAL étitlefrag", 
"EEWVALS“ 

datum Gatesi, 8, i 

datum dates2, 8,27 

buttea keywrd, 26, 1, "CALL asrehOio* 

button etsearch, 15, 1, "CALL esrah001" 

batton cancech, 15,45, *CALL quetup", 


"NEW_SCREEN dbing* 


le ae ee 0 rn ee es ee a on ee oe ee ee ee en eee ee ee eee 


as Declaration for structural effects citaticn database sareean 


ee Se Pe A A ne CO AE SD SP SE SD GE Sn SD PD ps 


WINDOW saitisara { 


num _ rows i¢ 

awa coluzas 78 

dine 0,0, 6,77 

testline searcktxt, 1, 1 

datum qualif, 1,435 

autumn author, 3, 1, “CALL VCAPTTAL sauthoraan", 
"HEWVALS” 

testiine emtititst, 4, 1 

datum titlefreg, 4, 9, "CALL VCAPIPAL étitlefrag", 
"HENVALS* 

édatwa datesi, @, 2 

detum dates2, 8,27 

buttoa keywrd, 20, 2, ~*CALL serak0l10" 
"CALL dummy” 

bettoa eteearch, 15, 1, "CALL serch00l* 

button enacech, 18,45, "CALL quetup", 
"NEW SCREEN dbiagq“ 

} 

SCRE soitiscra { 
title "STRUCTORAL EPFRCTS CITATION SEARCE"™ -ar 2/4 Gorreated 
window seitisarn, 2,1 


= wiadow majoracticas, 16,1 
border Yas 


} 
~  Beclaretica ee ee ee aoe citation database 


FRXTILIER noctiaplement (°HO?F DAPLIMENTED Il PROTOTYPE VERSION OF ASAN*} 


WINDOW 8 mcitisara = { 


am rows 26 

aum columas 78 

dine 0, Oo, 0, 77 

tezt lise searchtst, i, 2 

datum qualif, 1,48 

datum author, 3, i, "CALL VCAPIFAL éauthornem", 
“EEWVALS* 

test line entititst 4, 1 

datum titlefrag, 4, 9, "CALL VCAPITAL étitlefrag”, 
“HEWVALS" 

datum dateei, @, 1 

datum dates2, 6,27 

bettoa keyvrd, 10, 1, ~*CALL merch0i0* 
"CALI. dummy” 

bettoa w#tecarch, 13, 1, *CALL merchOOl* 

bettca onacech, 15,45, "Can qeetup", 
"NEW SCREEN dbing* 

} 


SCREEN maitiscra { 
title “MOISE AMD SONIC BOOM MODELING EFFECTS SEARCE“ 
window maitilecra, 2,1 

- window majoracticad, 18,1 
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dine 0,0, 0,77 
textline searchtxt, 1, 1 
datum qualif, i, 30 
atm author, 3, 2, “CALL VEAPTPAL sauthornan’, . 
"MEWVALS” 
teztline emtititst, 4, i 
datun titlefrag, 4, 8, "CALI VCAPIFAL &titlefrag’, 
"HEWVALS" a 
datum Gatesi, 8, 1 
déatun dates?2, 8,27 
buttoa keywrd, 10, 1, ~°NEW_SCREEN lkeywrdschscreen" 
“CALL dummy” 
- tastline actinplameat, $,15 
button etsearch, 15,1, °CALL aummy" 
bettoa qancech, 15,45, “CALL qsetup", 
“NEW SCREEN dbing 
} 


SCarEw legisiatecrees { 
title “LEGISLATIVE CIATION DATABASE SEARCH” 
window iegislatscreen, 2,1 

- wiadow ma joractica3, 16,1 
border TEs 


type erhima 


num rows a . 
num colums 37 
variable study2, 0 ,14 
leader “Study type 2:” 
halpfile help/stucy2 .hip 
} 

DATUM study2d ( 
awa rows i 
awe colwmas a7 
variable etudy2, 0 ,14 
leader “Study type 2:* 
pickable 0 
} 


format %-20e 


} 
DATUM studyl { 
awa rows 2 
mum columns 37 
variable etudy1, © ,14 
leader “Study type 1:° 


helpfile help/studyi. hip 
} - 
DATUM etudyld { 


suk rows 1 

au columns 37 

variable etudyi1, Oo ,14 

ieader "Study type 1:° . 
pickable wo 

} 


VARIABLE eaxpdesc { 
foundia “VARCEAR exzpdesc.arr“ 
type STRING 
format %-20e 


} 
DATUM expdesc { 
aU— rows pF 
num _ columns 40 
wariable ezpdesc, 0 ,19 
leader “Experimental type:" 


helpfile help/mathodol.hip 
} 
DATOM expdesad { 


14 


it 40 
variabie ezpdees, 0 ,19 
Jleader “Experinenstal type:* 
pickable pe] 
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VARIABLE species1 { 
fouadia “VARCEARAO speciesl .arr” 


type S?arNG 

formant 8-408 

} 

DATUM species: { 
au—_rows b 
nem _columes 6s 
variable epeciesi, 0 ,if 
leader “Species type i:° 
helpfile help/epecdies .hlp 
} 

DATUM speciesid { 
auA rows 4 
awa _colwms 63 
variable epecies1, 0 ,16 
leader “Species type 1:° 
pickable we 


au rows e 

num colwme 3s 

fi. lemme tztblk/aainal .txt 
border TEs 


num rows e 

aun columns 4s 

fi leaeme tztbikxy /vaerenianl .tzt 
border Yus 


aum_rows » | 
num solumme 50 
dot um epecies2, ©, 1, “CALL VCAPITAL éspecies2”, 


“REWVALS", 
"CALL quaryal2* 


num rows i 
aum columas 50 
dat om species3, O, 1, "CALL VCAPIPAL éspecies3*, 


“HEWVALS", 
"CALL queryel3° 


num rows i 
num scolums 50 
aateum speciae4, 0, 1, °CALL VCAPITAL Especies4", 


“REWVALS", 
"CALL queryalé" 


num rows 19 

aum columes 78 

line 6,9, 6,77 

detw quali?, i, 1 

datum aainals, i, 40 

datus epeciesl, 2, 1, "CALL VCAPTTAL éspeciasi", 
"HEWVALS", 
"CALL queryelii” 

det un species2¢, 3, i 

datum wpecites3d, 4, 1 

dato epecies4d4, 5, 1 

éotus acistype, €, 1 

datum expdéesad, ¢,38 
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datum eteudyld, 7, 2 
datum etedy2d, 7,38 
teztbicak aainal, 8,23 
taztlise earolltzt, i¢,23 
buttca etsearch, 18, 1, "CALL asrahk002° 
bettca cancech, 16,55, “CALL qeetup", 


"MEN SCREEN dbiag“ 
helpfile halp/acbelp. hip 


SCRE akeysrch { 
title "ANIMAL EFFECTS KEYWORD SEARCE" ¢ 


window akeywrdeearch, 2,1 
border Yus 


} 
WOEDOW akeyelt { ~ alternate used for pop-up taxztbloeck 

awn rows is 

au coluas 78 

line 0,0, 0,797 

éatum qualiz, i, 1 

datum eaimals, 2,40 

datum epeciesid, 2, 1 

dat om epecies2d, 3, 1 

é@etun wpecieesd, 4, 1 

éatun epecies4ad, 5, 1 

datum noistype, 6, 1, "CALL VCAPITAL 6noistype’, 
"REWVALS”, 
"CALL cumey” 

Gat om ezpdecc, 6,38, "CALL VCAPTTAL Seazpdesc", 
"MEWVALS", 
“CALL dummy” 

datum etudyi, 7, 1, “CAUL dummy” 

datum study2, 7,38, "CALL chummy” 

tartblioak var_ animal, 8,18 

tertline scrolitzt, 1¢,23 

bettoa etecearch, 18, 1, “CALL asrah002" 

buttoa osacech, 16,55, "CALL quetup’, 


helpfile help/achalp. hip 


title “ANIMAL EFFECTS KEYWORD SEARCH" 
window akeyalt, 2,2 
bordar Tas 
} 
ad Declaretion for Human effects keyword ostegory search screen 


aum_rows io 

au@m Golumms 38 

filenmme txtblk /metbodol .txt 
border Yus 

} 


} 
%. 

TEXTELOCK soistype { 

atm rows 10 

aum_columas 38 

fiieneme tztbik/asetype .tzt 

border YRs 

} 2 
WINDOW noistype { 

num rows 10 

av ocolwumme as 

teztblock noistype, 0,6 

} 
TEETEIOCK hefdesa { 

awa rows 10 

auwa_columms 35 

filename tztblk/huniup .txt 
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type Priors 
fomet  %~456 
} ¥ 


variable desctype, 0 ,26 
leader "Effect dasacriptor type:” 
heipfile help/hunizp .hlp 
} 
DATO etructeff { 
awa rows i 
nae oolume 77 
variable desctype, 0 ,22 
leader "Structural effect ca:* 
helpfile help/etrimpes.hlp 
} 


WIDOW hkeywrdsearch { 


num rows 19 

awm_colume 78 

line Go, 0, 9,77 

dati: qualif, 1,30 

datum deectype, 2, 1, "CALL VCAPITAL édesctype”, . 

. “MEWVALS", 

"CALL, kerahO0ii° 

teztbloak hefdeesc, €,23 

datun aoistype, 3, 1, “CALL VCAPITAL éncistype", 
"NEWVALS”, 
"CALL herch0i2° 

dot exzpdesc, 4, 1, “CALL VCAPITAL éezpdesc", 
"MEWVALS" , 
"CALL herah013* 

teztline eerolitst, 16,23 

buttoa eteearch, 18, 1, “CALL herchO02" 

button cancech, 16,45, “CALL qeetup"”, 
"HEW SCREEN dbiag” 

} 


titiea "ZUMAN EFFECTS KEYWORD SEARCE" 
window hkeywrdscearch, 2,1 
- window ma joractical, 18,1 
border Tus 
} 
- declaration for structural effects keyword category search ecreen 
TEXTBLOCK sefdesc { 
au rows 20 
Bum oo lumee 38 
fileasme tatbib/etrispas.tzt * 
border TEs 
} 
WINDOW ekeyrrdecareh { 
aUE_rows is 
uwa_colums 76 
line Oo, Oo, 9,77 
data: quaiif, 1,30 
datum etructeff, 1, 1, “CALL VCAPTTAL édesctype”, 
“WEWVALS*" , 
"ADD WINDOW ncistype 7 24° 
tastbloak eefdesa, 8,23. 
datum noistype, 2, 1, "KEQOVE WINDOR”, 


"ADD WINDOW exprtype 7 24", 
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“CALL dummy” 

éatun ezpdesc, 3, i, "CALE, VCAPITAL Sexpdecc", 
“HEWVALS" , 
“CALI, dummy” 

textline serolitzt, 15,23 

buettoca etecarah, 27, 1, “CALL dummy” 

buttoa enncech, 17,45, "CALL qeetup’, 


SF eB ln i tn as in in ie ae lle as as aig lls a en ee ete pg enh tn cae ae defo lt FD EP ED ED PD ED GP SD ED OD GS GD OP 


~  Declaratica for Boise & Scaic~-boom effects keyword anstegory search screen 


oe ew oe ee ee es 9 eo ee ee i es ee ee ey ee ee ee eg ee ee os 


TEETBIOCE ebdeea { 


nun rows 10 
aum_columas 35 
filename txtblk/sbispac .tzt 
border Yas 
} 
- WARIABLE noiseff { 
oo type srnimea 
format *-45e 
- ) 
- DATUM snoiseffe { 
- au rows a 
“~ nue columns 77 
~~ wariable moiseff, 9 ,32 
- leader "Noise and sonics boom effect ca:* 
- helpfila help/nohelp . hip 


awa_rows is 
aun _colums 78 
2ine 6,0, 0,77 
- datum poiseff, 1,1, "CALL dummy” 
- datum qualif, 1,30 ~- ar 2/5 Added 
~ textblock sbdeaa, 5,23 
tad datum noistype, 2,3, “CAL, dummy” 
= datum eazpdacs, 3,1, ‘CALL chummy” 
tastliine not imp lament , §,20 
“ tartline serolltzt, 15,23 
buttoa stvearch, 17, 1, °CALL dummy” 
batton ecaznosch, 17,45, "CALL quetup", 
“MEW SCREEN dbing” 
} 
SCREEN akeysrch { 
title “WOISE AND SOMIC-BOCM RFVFECTS KEYWORD SEARCE™ 
window sbhkeywrdscarch, 2,1 
- window majoractical, 18,1 
border YES 
} 
~  Declaratica for LEGISLATIVE effects keyword category search screen 


- aun _rows 26 

= aun colwumas 78 

~ line 6,0, 0,77 

ad datum noiseff, 1,2, "CALL dummy” 

- datum qualif, 1,30 ~ av 2/5 Added 
- datum aoistype, 2,1, “CALL dummy” 

~ Gatun exzpdesc, 3,1, “CALL dummy” 

~ textblock sbdesc, 3,23 

tad teztline andy, 5,20 

- tezt line serolitzt, 15,23 
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- bettca eteceearch, 17,2 
ad buttoa cnancech, 17,45, “CALL qeetup’, 
« "HER SCREEN dbiaq* 


aU—_rows 
num columas is 

taztline shwreviewtxt, 0,2 
helpfile heip/citatica. hip 
} 


FEXTLIEE dbiaqeirtst ("DATABASE INQUIRY SCREEN™)} 


BOTTON diaquir { 
awB_rows p & 
atm colums 28 
tastlinze iaquirtst, 6, 2 
halpfile help/citatioa .hip 
} 


TEXTLINN altseltxt ("Alternative selecticas you cam now make:") 


TEXTALOCK slpintf { 
filesame) = birpit/sipiats ppl 
eum rows i¢é 
awn columas 76 
border Yas 
} 


WIDOW shwaztcit { 
aum_ rows 17 
aum_columns 78 
tertbloak @sipintf’, 1,1 
} 


TEXTLINE shwnetcitst ({*ghow nart citation”) 


worros ehwaxtcit { 
atm rows p | 
aun _columme 22 
teztlize shwnxtcitszt, 6, 2 


helpfile belp/schelp.hip 
} 


“a 


TEXTLIAQRN shwardtrvtsct {"Show critical review (1¢ any) "} 
BOTTCa ehweritrwv { 

aW@— rows 1 

mun_ columns 35 

text line shweritrvtst, 0, 2 

halpfile halp/schalp .hip 

} 
TEXTLIQE shwabetxrt {"Show abstract (if any) °)} 


aUTTOn shwabet { 
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num rows 2 

mum columms 24 

taxtline shwabetst, 0, 2 
helpfiile help/achelp.hip 
) 


TEILINE prauthiscitxt ("Priest this eitatica®} 


BorTor prathiscit { 


awm_rows 2 
uum _ colums 24 
textline prathiscitzt, 0, 2 


eerste help/achelp. hip 


TEETLINE pracitst {*PROFT ALL CIFATICoaa* } 


eer | pracit { 
aU—_ rows p | 
aum_columas 27 
teztline pracitzt, 0, 2 
helpfile help/nchelp. hip 
} 


WINDOW aitdispacticn { 


awm_rows 2 

aum_colums 78 

betton sehwnuxtait, ©, 1, "CALL shwaxteit”® 
button shwabst, 0,40, "CALL deplabst* 
buttoa ebweritrv, 1, 1, "CALL deplerit” 
buttoca prathisait, 1,40, "CALL cummy” 


} 


VARIABLE shwdescl { 
foundin "VARCEARGO eatdeec [0] . arr“ 


aW—_ rows 1 
sum Ssolummas 65 
wariable shwdeseai, 0 ,1 


VARIABLE shwdesa2 { 
foundin “VARCEAR6O eatdesc[1] .arr* 
type STRING 
format %-€0e 
} 
DATUM shwdesc2? { 


aun _rows i 
mum columas 65 
variable shwdeec2, 0 ,1 
piakebliae be] 


} 


VARIABLE shwdesec3 { 
founsdin "VARCRARCO entdesa [2] . arr” 
type eTR ING 
fommat &-60e 
} 
DATUM shwdesc3 { 


atm rows a 
aum colums 465 
variable ehwdeea3, 0 ,i 


pickable wo 
} 


VARTABLE shwdescs { 
foundin “VARCEARGO eatdesc [3] .arr’ 
type Pez be] 
format &-60e 
} 
DATuM shwdeec4 { 
num rows b 
aum columas 65 


ne ee 


pickable be) 
} w 
VARIABLE suitable { > 
fouadin “VARCHAR suitable.arr* 
type ernina 
format tis 


DATUM emtryaun { 
auwa_rows i 
aum—m_ columas 30 
variable eatryaun:, oO, 23 
leader "ASAN Citation swaber:* 
pickable wo 


FEXTLINE shvtitet (°title:*} 


datum eatrynum, 0, 2 
Gat um euitadle, 0,32 
datum whea, 0, 60 
datum aitevtaen! , 2, 21 
datum citeutaem?, 3, 1 
datum citautnem3, 4, 1 
Get us sitautnemé, 5, i 
a@etum aitautngs, 6, 1 
datum citautnamé, 2, 42 
Gatun citautnem7?, 3, 42 
detun citevrtness, 4, 42 
Gat wn citautneams, 5, 42 
datum citeutneml0, ¢, 42 
text line shwtitst, 8, 2 
éaotun shwdesci, “8, 9 
datum shwdesc2, 9, ® 
datum shwdesc3, ‘10, ® bs 
Gatun shudescé, il, ® 
~ buttoa ehwnxtcit, 14, 1, "ADD WINDOW shwnxteit 41° eeae T?T?T79? 
bettoa pracit, 46, 1, "CALL cummy* 
bettoa rescope, 16,28, “CALL aclistc“, 
CALL resoasrch" < 

bettoca eGaucech, 16,60, "CALL molistc", 

“CALL qeetup*, 


aun rows i 

mum _columas 706 

variable selerit, 6 , 22 

leader "Selection Criterion: ° 


pickable mo 
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Bun rows 3 

amm_colums 78 

datum selcrit, Oo, 1 
éut ea eurrcit, a, 1 
datum aumofait, 1,32 
line 2, 0, 2, 77 

} 


window citdisphead, 2,2 


border YES 
} 
aad ABSTRACT/CRITICAL REVIEW DISPLAY SCORE 
TETLINE aulltest {° ")} 
WEEDOW shwaxteabs { 
BUA _Tows bE 
num_columas 4s 
teztline mulltext, 0,2 
} 


TEETLINZ shworitry {Show aacther review (af any) “} 


aorTTce shwaztrev { 


num rows p | 
awa columms 24 
tertline ehweritrv, 0, 2 


helpfile help/nobelp. hip 
} 


Wrmpow shwaxtrev { 


atm rows 1 

aum colunas 31 

buettoa ehwaztreyv, 0, i, "REOVE WiMDow, 
*CALL dspicrit* 

} 


TEXTLINZ ebsdone ("Dose viewing this tert*) . 


Burros abedoane ( 
aun rows 4 
aus colums 29 
textline abedone, 0, 2 
helpfile help/nohailp .hip 
} 


TEXTRLOCE menctext { 
aun rows 12 
num columms 74 
Tileneme txtblk Asemct-xt .tst 


} 
WINDOW absdisplay { 

au—_ rows 17 

aum columns 77 

text line ebwtitzxt, i, 2 

datum ehwidesal, i, ® 

teztbloak mencotext., 3, 2 

buttoa abedoae, is, 40, "REOVE WINDOW", 
“MEW SCREEN citdsepl”, 
"ADD_WIMDOW citdispaction 19 1° 

} 
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A.2 Screen Description File for MTR-related Operations 


0 i ag a EA Se Se ee AF ly sy PS EP RS Cp SS AD wir AR a SE RAD A A EG she eae ewe ewer we 


~IRCIADE STATEMENT TOR THE ASAN typedef DEFINITIONS NEEDED TO 
- COMPIZ USURS.C WITHOUT INCURRING THE WRATK CF TEE COMPILER 


Se 0 Ee Ee ne ae PE PD a a es ake et yt ee ee ee On oe ee a a a 


TRCLUDE ASANTIVE .E 
IWCLUDS ASSAM. E 


SE le ee le nF he as ge a ED le le Oe a eh py es SD SD a ew Shs lS 


~ DECLARATIONS IN WOM-LEEICAL OBJECT SBQUEICE ...... cece 


LLL A eS ED i WA SE Sh A A a SA SS A SD Sn em Qe 


~ Multiple Choice space 


Sewer ee = eee eee ee ewe eee 


VARIABLE muldet00 { 
foundia "VARCEARSO depimelt [0] .arr" 


VARIABLE wmuldat0l { 
foundin “VARCEARSO dsplwalt [1] .arr” 
type PTR 
format 8-308 
) 


DATUM wmuldetOl1 { 
awn rove i 
aum columas 32 
warieble maldetO1, 0, 2 
picrable be) . 
} 


VARIABLE wmuldato2 { 
foundim "VARCEAR3O deplmalt (2) arr” 


type sTRING 
format &-30a 
} 


VARIABLE muldat0a { 
foundin “VARCEARIO depleult [4] .arr® 
type erTRIwa 
format &-2308 
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variable muldeto4, 0, 2 
pickable wo 
} 


VARIABLE muldat6sS ( 
foundia “VARCEARSO depimait [8} .asr” 
type oTRn Ina 
format  %&-30e 
} 


DATiM muldetOS { 
aun rows i 
aw _colume 32 
wariable wmuldatOs, 0, 2 
pickable mo 
} 


VARIABLE muldat0¢é { 
foundin “VARCEARIO deplealt (¢] .arr’ 
type STRING 
format %~308 


VARIABLE muldat07 { 
foundia “VARCEARJO depleelt [7] .arr°” 
type ornina 
format &-308 


} 
DATTm wuldet07 { 
au rows 1 


aun colums 32 

wariable mauldato7, 0, 2 
piockable Fs) 

} 


VARIABLE muidatoe { 
foundin “VARCRAR3SO deplmult (8) .arr” 
type orTR ING 
format &~308 


VARIABLE muldat0s { 
foundin “VARCHARSO dsplanit [9} .arr” 
type SPRING 
format %~308 
} 


DATTA muldatO® { 
aum_rows 1 
aum_columns 32 
waeriable muldatos, 0, 2 
piakeble be] 
} 


VARIABLE muldatioO { 
foundin “VARCHARSO deplmult [10] .arr” 
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VARIABLE muldati1 { 
foundia "VARCEARSO deplmelt [11] arr” 
type FRING 
format %-300 
} 


DAT  wmaldetii { 
aG@n rows 4 
uum columns 32 
wariable muldetii, 0, 2 


pickable =o 
} 


VARIARIZ muldati2 { 
foundia “VARCHARSO deplmnit [12] arc“ 


DATUM smuldeti2 { 
nua_rowse 2 
awm colums 32 
variable maldati2, 0, 2 
pickable BO 
) 


VARIARLE muldati3 { 
foundia “VARCEARSO deplauit (13) .arr® 


DATE wmuldeti3 { 


VARIABLE wmuldati4a { 
foundin "“VARCEARIO depimalt [14] .arr"™ 
type #rRiIna 
format &-30e8 


awa_columas 32 
variable meldeti4, 0, 2 
Pickable wo 


} 


VARIABLE muldatiS { 
foundin "VARCEARSO Gepinealt [15] .arc”" 
type erTRIRG 
format %-30s 
} 


DATUM mualdeti5 { 
aun rows i 
aun _colums 32 
variable muldatiS, 0, 2 
piakable be) 
} 


VARIABLE muldatié { 
foundima “VARCEARSO dsplmult [16] arr“ 
type wren rag 
format %-306 
} 


DAT wuldeti¢s { 
awa rows a 
awe columns 32 
variable muldeatié, ©, 2 
piakable wo 
} 


VARIABLE muldati? { 
foundin “VARCEARSO deplmult [17] arr” 
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} 
para 8 muldeti? { 
nun rows a 


pickable wo 
} 


VARIABLE muldatis { 
foundin “VARCEAR3O depleuit [18} .arr* 


VARIABLE muldati9 { 
foundin “VARCEARSO depiwalt {19} .asrz" 
type STRING 
fommeat %-308 
} 


DATUM 8 mmldatid { 
aU—_rows 2 
sum columas 32 
variable mulideti19, 6, 2 


Pickable Wo 


~- Planazer ettributes 


0 a a 9 ee a ee 0 es ee 


} 

DATUM plearnem { 
aum_rows > | 
num columas 50 
variabie piesram, 6, 20 
leader “Your name, please:* 
helpfile help/ssername. hip 

} 


VARIABLE paseword { 
type @FRIwa 
format %-10s 

} 


DATUM pesswerd { 
AUB rows > ne 
uum _columas $5 
wariable paseword, 0 , 23 
leader "Please enter password: * 
helpfile help/password.hilp 
} 


~ Other General Storage for Verificatica, Fests, Eta. 


founadia “VARCEAR atbv.arr" 
type Fra 
format 2-308 
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aun rows a 
au, colums 66 
variable eroid, 0, 21 
Leadex “Meme of current MFR:” ad 
pickable wo 
} 
VARIABLE esrodesa { m4 


foundin “VARCEAR ercdescc arr” 
type SPR TG 
format a-Bés 


i aw_rows i 
aum_columms 76 
variable sradesc, 0, 22 
leader “Descriptica id 


aw rows a 

aus colume 70 

variable srodesec, 0, 7 
leader "Hote: * 
pickabile wo 


DATIM schedsle { 
au” rows p | 
awn _columas 73 
variable echedule, 0, 22 
leader “Scheduling activity: * 
helpfile help/echdutr.hip 
} 


VARIABLE sreorig { 
fonadin “VARCHAR sroorig.arr” 
type STRING 
format &-50e 
} 


DATUM origautr { 
aum_rows 1 
au colums 73 
variable erocorig, 0, 22 
leader "Originating activity: * ~ 
helpfile help/origntr.hip 
} 


~ MFR Attributes 


CO ee ee ae we ee ee oe oe 


awn rows i 

atm colwens 27 

wariablia qurartca, 0,16 
leader "ARTCC : : 


format %2d 
) 
DATUM curwidright { 

sum rows 2 
eue_ column 28 
variable curwidright, 0,16 
Leader "Width (right): ° 
helpfile help/curwidrt .hip 


format %2d 
} 
DATUM curwidleft { 

awn rows i 
aum oclumns 25 
wvariabie curwidleft, 06,16 
leader "Width (left): *° 
helpfiie help/curwidl? .hip 


fowadin  “ALTEPEC curhighalt . spec" 
type SPRING 
format &9e 


au rows 2 
uum colums 27 
wariable curhighealt, 0,16 
leader “High altitude: * 
helpfile help/curhialt .klp 


foundin °ALTSPEC curlowalt.spec" 
type eTRiIwa 
format 89a 


awn rows i 

aw _colums e 

variable preertcc, 0,4 
piakable bs] 


variable prewidright, 0,4 


aum—_rows i 
num columns @ 
variable prewidleft, 0,4 


- FREVIOCUS set 
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type STRING 
format 89e 
} 
~ Goordinastes 
VARIABLE emtiat { ~~ CORRENT or MITER Set 
foundia *COORDIEATE eat. lat” 
type TRING 
format 8-130 


type STRING 
format &-13a 
} 
VARIABLE shwiat { ~ PREVIOUS or SEOW Set. . 
fousdia "COORDINATE show. ist” 
type ernrna 
format &-1l3s 


VARIABLE curfirtyp { - CURRENT or EWTER Set 
foundin "VARCHAR curfixtyp.arr” 
type FPRING 
format %12e 


type #rTRING 
fonmaat *3a 
} 
VARIABLE prefiztyp { ~ PREVIOUS or DISPLAY Set 
foundin “VARCEAR prefizstyp arr” 
type STRING 
format &i2ze 
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type orRING 
Zommat 8-ize 
} 


variable acneme, 6, 10 
leader "Aircraft :° 
piakable wo 


au rows 1 

awn columns 35 

variable acammel, 0, 1¢ 
leader "Aircraft sasme:" 
helpfile help/xtrairer.hip 


VARIARIEZ day { ~- GERXRIC or JANUARY 
foundin "OPERATIONS ope [0] .day” 
type IETEGER 
format %44 


VARIABLE jandey { 
foundin ‘OPERATIONS ope [0] .day" 
type THPFEGER 
format 84d 

} 


VARIABRIZ aight { 
foundin “OPERATIONS ope [0] nite” 
type OFPEGRR 
format 844 

} 


VARIABLE jeanite { 
foundin “OPERATIONS ops [0] . nite” 
type INPEGER 
format 4d 

} 


VARIABLE febday { 
foundin “OPERATIONS ope [ij] .day” 


ope [1] .zite" 


ope (2) .day* 


ope [2] .aite" 


ope [3] . day” 


ope [3] .aite" 


ope [4] .day” 


ope [4] nites 


ope (S) day" 


ops [5] .mite* 


ope [6] .day” 


ops [6] .aite” 


ope [7] .day” 


ope [7] .mite” 
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VARIABLE sepday { 
foundia "“OPERATICNS ops (8) .dny” 
type TPTSGER 
fomat nad 

} 


VARIABLE sepaite { 
foundia "OPERATICNS ops [8] . nite” 
type IFFEGER 
format. eda 

} 


VARTARIEZ cctday { 
foundia "OPERATIONS ope [9] . day” 
type DPTSGER 
fozmat 4d 

} 


VARIABLE occtaite { 
foundin ‘OPERATIONS ops {9} nite" 
type TIEGER 
format. ned 

) 


VARIABLE novday { 
foundia “OPERATICNS ope [10] . day” 
type TFTECER 
format 844 

} 


VARIABLE novnite { 
foundia “OPERATIONS ope [10] .aite" 
type TaTRGER 
format 84d 

} 


VARIABLE decday { 
foundia "OPERATIONS ops [il] .day” 
type IFTSazR 
format %44 

} 


VARIARIZ dacnite { 
foundin  “OPERATICNS cope [il] .aite" 


type IFTaGcER 
format 244 
} 
- Mesicas 


VARIABIZ sisname { 
foundia “VARCEAR miselabd) arr” 
type orTRING 
format. %-7e 
} 


DATUM misnemel { 


au rows p | 

uum _columas 34 

variabia misneme, 9, 26 

leader "Meme of curreat missica: “ 
pickable wo 


fouadin "“VARCEAR cid .arr® 
type FRING 
fomat &-Te 


} 
TRITLINE selact { 


“Right now you can type ? for help, <CFRI> ¢ to quit, or move the cursor”) 
TEXTLINE envass (“CONDUCT AN ENVIROMMENTAL ASSESMMENT" } 


33 


ee a 


TELTLINE housekp ("PERFORM DATABASE HECUSEEKEEP ING” } 
TRETLINN introtxt ("VIEW GENERAL INFORMATION ABOUT THIS PROGRAM” } 


TEXTLINEZ selecmistxt {"Salect aircraft and missica for MFR“) 
PEXTLINS nodcunmstrtst (“Modify current MFR°} 
TEXTLINE chgetrtxrt {"Select ancther MFR" } 


TEXTLINE neaxtuavptxzt (“Enter aext aavigatice poiat*} 


{ “CURRENT PREVIOUS CORRENT PREVIOUS" } 


FEXTLINE cancelatrtxt {Cancel this MFR deta eatry”) 


TEXTLINE cavent rest {"Seve this MFR“) 

TEXTLINE showncremtrtxt (“Show more MFR names (if any) ”)} 
TEXTLINE recalist rtzt {"Reaall one of the following MFRs:"} 
TRXTLIOE stuewst rest {"Start new MIR “} 


FRETLIEE definemtrtet ("Enter route waypoints") — 
TEXTLING actxt (“Aircraft:*} 


TEXTLINER cpecascatxct (°Operaticas are seascaal"} 
TEXILINZE opthruyrtzt (“Operations are eves throughout year") 


TEXTLION inastritzt {"Please enter day aad night cperaticas by mcath"} 
TEXTLINZ dayaite {" DAY WIGHT DAY WIGRT DAY WIGHT DAY wraRT’} 
TEXTLINEZ instr2txt ("Please eater daytine aad aight operations per moath"} 


TEXTLIMEZ cancmistzt (“Abendoa this mission") 
TEXTLINZ entmisdbtxt ("Enter this missica into database" } 
TEOLIER stanewmistzt {Start new missica”} 


au— rows 14 

maum_columme 76 

border TEs 

filemame tztblk/intro .txt 


} 


BUTTON assessment { 


atma_ rows i 
aum oolumas a6 
tezt line eavase, 6, 2 


helpfile help/assess . hip 


BurToH chgnetr { 
au rows 1 
Ste ool mas 33 
textline chgetrtzt, 6, 2 
helpfile help/selmtr.hip 


au— rows 1 
awe columas 33 
taztline housekp, 0, 2 


awa rows 1 
aum Golumsas S56 
testline datretzt, 0, 2 


helpfile halp/achalp.hip 
~ 2© halp here cus this buttom doesn’t do anythiag 


} 


WINDOW password { 


aum_rows i 
mua colums €0 
datum paseword, 0, 5 


} 


TEXTLIWE tititrzt 
{*Developed for Noise and Scoeic Bocm tmpect Fechnology Program” } 
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FEETLIMNE tit2txt {“uader 0.8. Air Frorce Gontract ¥33615-86-0-0830"°) 
TECTLINE tit3est {"by Baw Laboratories, taca."} 
TERTLIME titétxt {"February, i986") 


TEXTLING titStxt 
("Unreleased damcastratica of Protetype Varsion...Not for General Vee" } 


TREYLINE dinfo ("Dose viewlag general information on ASAN™} 


DUTTON diafo { 

nu—_Tows a 

aun colwzas 76 

textliae @info, Oo, 2 
} 


WINDOW iatrodaction { 
aun rows is 
aun columns 78 
teztbleck fatrotzt, 6, 1 
bettca d@iafo, 14, i, “REMOVE WIEDOW™ 


aum rows rps 

uum _columms 78 

dine 1, 9, i, 77 

title “ASSESSMENT SYSTHS TOR AIRCRAFT WOISE {ASAN) 


teztline tititzt, 2, 8 

taxtline fit2tzst, 3, 16 

textline titstext, 4, 27 

taxtline titétxt, 8, 32 

tezstline titSext, 7, ¢€ 

line 8,0, 8,77 

éotum pilaszraan, 12, i, 
"CALL, VCAPITAL éplanrag", 
“ADD _WIEDOW paseword 15 3", 
“UPDATE DATUM peseword", 


aun rewe 
awa_columas 78 

line 5, 0, 5, 77 

taxt line selact, é, 3 

button jatrotst, 7,18, “ADD WINDOW introdecticn 3 1° 
button asseeement, 8, 2, "CALL peprobst" 

button housekeeping, 8,44, "CALL pedbhsek" 


} 


SCREEN firetscreen { 
titlescreen YES 


border Yus 

title “ASSESSMENT SYSTEM FOR ATACRAFT WOISE (ASA) ” 
window int rowiadow!, 1,1 

window int rowiadow2, 13,21 
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36 


) 
eorTTcs mulbuetisS § { 
nun rows 1 


aun rows a 
mum columas 40 
tast line etseumistxt, 0 ,2 
helpfiie healp/etsewnis . hip 
} 

auTzcN =66selacmis {( 
aum_rows i 
aw columns 40 
texztliine selacnistzt, oO, 2 
halpfile help/selacn.hip 
} 


au rows i 
au columas 36 
testline epeacawmistszt, oO, 2 
helpfile help/newunias .hip 
} 
WINDOW mtrdatestry { 
au— rows rf 
mum columns 78 
battoa ahgatr, 0, 2, “CALL pechgutr* 
battoa selacais, 2, 2, "CALL: pemtrais® 
battea modcurmtr, 4, 2, “CALL dummy” 
bettoa epecawais, 6, 2, “ADD WINDOW newnisam 13 3°, 
"UPDATE DATUM misname”, 
“CALL WEEREAMI Screen Window Datum Buttca’, 
“CALL etrepy cldsecreem Sareea", 
"CALL peaummien cid.arr® 
} 
WIEDcwW wstraemocs { 
aun rows 3 
atm colums 78 
line 2,0, 2,77 
éetun wtrnem, 0, 2 
datum mtrdesa, 1, 2 
} 
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awn columse 78 
line 3,0, 3,77 
éatwa wtreaem, OO, 2 
datum mtrdeea, i, 2 
detun nigamel, 2, 2 
} 
“ Declaraticas for DEFINE/MODIFY scCRKEEN (dafmodat recreen) 
DAMM 8 prelownlt { 
at rows i 
Be 601 tae 20 
variable prelowalt, 0,1 
piakable wo 
} 
DATtM 6 curlowalt { 
aun rows a 
uum columms 28 
variable eurlowalt, 0, 16 
leader “Low altitude: 
helpfilese help/ aurloalt .hip 
} 
DATUM 86 prefiztype { 
aU— rows 2 
aus columas 13 
variable prefiztyp, 0,0 
pickable mo 
} 
DATUM curfiztype { 
au rows a 
awa_colume 24 
variable eurfiztyp, 0,11 
leader “Fiz type: ° 
halpfile help/carfixtp. hip 
} 
wee Declaraticas for emtering scordinates 
DATUM entiloag { 
aun rows i 
awm_ocolumas 2s 
variable enmtilcag, 0 ,11 
leader "Longitude: * 
helpfile help/markmep.hlp 
DATUM eatiat { 
au—_ rows 1 
atm columa|s 25 
variable emtiat, 0 ,11 
leader "Latitude: ° 
helpfile help/markmap.hlp 
~ Declaraticas for show coordinates 


DATUM shwloag { 
num rows 2 
mun columns 14 
wariable shbwleag, © ,0 


picaktable wo 
healpfile help/combuap.hlp 
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num rows p | 
uum _colusas ] 
variabie prefizdist, 0 74 


variable carfindist, 0,16 
leader "Fiz distance: * 
helpfile help/curfizdt. hip 


Bum rows a 

num columas @ 

variable prefizrsd, 0,4 
pickable wo 


aum_ rows i 

awa columns 2¢ 

wariable curfixred, 0,16 
leader "Fiz radial: * 
helpfile help/curfiyre hip 


aWa—_ rows i 

auwa_columas 10 

variable prefixid, 0,4 
pickable Oo 


wariable ourfizid, 0,16 
leader “Piz ID: = 
helpfile belp/ourfizid.hip 
DATUM prenmavpt { 

aUm_rows a 

aum_columme 10 

variable premavpt, 0,4 
pickable wo 


variable curnavpt, 0, 16 
lesder "Wav. Point: ° 
helpfile help/curaavpt .hip 


BUB_rows i 

aum_columas 40 

variable neount rum, 6,7 

leader "Heme : “ 

helpfile help/ntustrom. hip 
nextnavpt { 


a ae Eee 

TIL OM retatrentxt {"Comtiaue withont Selecting MFR“} 
TRXTLIME retetreatzti {"Comtinue without creating missica”} 
TRETLINR retetrentst2 {"Save mission in database" } 

TEXTLIQE vetnomis (“Comtinue withont selecting mission" } 
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num rows i 
awn _columme 40 
text line retatremtzt, 0 ,2 * 


} 
SUPrrow retetreat2 { 
atm rows i 


textline curpretzt, 6, 16 R 
textline curpretzt3, i, i6 
datum curaavypt, 2, 2, SCALE VGAPTITAL écurnavpt", 
"EEWVALS" 
Gatun prenavypt, 2, 26 
datun curfiszid, 3, 1, *CALL VCAPITAL 6ourfizid’, 
"MEWVALS“ 
datun prefizid, 3, 2¢ 
datum ourfixzrad, 4, 2 
detum prefixred, 4, 26 
dat un eurfizdist, Ss, 12 
datum prefizdist, 5, 26 
datun entlat, 2, 30, "CALL latZdec éent", 
"NEWVALS" 
datum shwilat, 2, 64 
d@etu emtloag, 3, 38, “CALL lon2dea tent“, 
“REWVALS” 
datum shwlcag, 3, 64 
datum curfixtype, 4, 36, “CALL VCAPITAL 6ceurfixztyp", 
"MEWVALS* 
aatum prefiztype, 4, 64 
datum curlowalt, 7, 2, “CALL alt?dea &curlowalt*, 
"NEWVALS" : 
Gat cum prelovwalt, 7, 26 
datum eurhighait, 8, 2, "CALL alt2dec écurhighalt’, 
"NEWVALS”" 
Gutum prebighalt, ®, 26 ” 
éatum carwidleft, ®, 2 
datum prewidilett, 9, 27 
Gotu curwidright, 106, 2 
datum prewidright, 10, 27 
detu curartac, 11, 2, “CALL VCAPTPAL écurartca", ‘ 
"MEWVALS" 
éatum preartos, 11, 26 
bettoa aaxtaavpt, 13, 2, “CALL axtetrpt” 


} 


BorTom enancelatr { 
au Tows i 
awa_colums 35 
teztline cancelmtrtst, 6, 2 
helpfile halp/canclstr. hip 
} 


BCrTTou eavemtr { 
num rows i 
awa_columme 20 
tertline savemtrtzt, Oo, 2 
helpfile help/savemtr.hip 


78 

0,0, 0,77 
eonveartr, 
eoaacelistr, 


i, 2, °CALL sevemtr” 
1,40, “CALL cancmtr” 


title "DEFINE /MODITY 2FR” 

window mwtrnamoem, 2, 1 

window defnacdatr, 6, 1 

window mtraction, 20, 1 

berder TEs 

} * 
- Declaraticas for SELECT ANOTEER MFR SCREEN 
aorros ehowncrentr { 

awa rows 1 

num_columns 37 


tazt line showneramstrtzt, 0 ,2 
helpfile halp/shmrmtres.hip 


} 


aoTTOn etnewntr { 


aun rows 
amm _colwuas 


bettoa 


wtrecalatr { 


4 
78 


etnewtr, 1, 2, 

"ADD WIMDOW newstram € 3°, 
“UPDATE DATUM newstrum", 
"CAL penwatrn a2bv.arr* 


showmorentr, 


i, 41, 


"CALL mabuach” 


recallstrtxt, 3, 2 


. = = 


= 


bed = 


™ 


wen atnunro 
eoocoooeo ea o00 © 


= 


"= 7 . 


= 


= = = 


= 


eeraushunrHo 
@ecoegaeoo eoeog 0 


7” 
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“CALL MFRccan depimult [0] .arr® 

“CALL MFRoonn deplmult [1] .arr? “ 
“CALL MFRocan deplanit [2] .arr* 

“CALL MFRocan deplecit [3] .arr® 

"CALL MFRacen deplenlt (4) .arr” 

"CALL MFRocaa deplmult [5] .err" 

"CALL MFRocan dsplanit (6) .arr” 

“CALL MFRocen depleult [7] . arr” 

“CALL MFRocen deplmult [8} . arr” 

“CALL M¥Rocan depimalt [8] .arr” 


= 
= 


ba 
= 


= 
“= 


Ks 
euNnro 
eeSogc°o 


| 
| 


~ 
= 


« ” 
bd) = 


a 
= 


“CALL MPRocen deplmelt [10] .arr® 
“CALL MFRocan deplmult (11). arr” 
“CALL MPRooan depimalt [12] .arr® 
“CALL MFRocan deplenit [13] .arz” 
“CALL MFRocan deplmult [14] . arr” 
“CALL M¥Rocen dsplmult [15] .arr* 
“CALL MFRocan deplmuit [16] .arr* 
“CALL MFRoonn deplmult [17] .arr” 
"CALL MPRooen deplanit [18] .arr” 
“CALL MFRocan dsplmult [19] .arz* 


~ 


: 
: 


= 
” 


= ” 2 
9coo0900 
-~_ = a 


Py 
a= 


ro 

= 
Senaunwun 
eoo oo 


= 
= 


WOMDOW retmtreat { 


awh rows 1 ’ 
awn _columas 45 
bettoca retutreat, 0, 1, "CALL melieta", 


helpfile help/datepubl. hip 
} 


BOTTOM definemtr { 
uum rows i 
num _columas 40 
texztlisze definestrtst, 0 ,2 


helpfile help/getmep.hip 
} 


WrDow dafauntr { 


awa rows 9 

mms columae 77 

Gatun origutr, Oo, 1 

datua echedzule, 2, 1 

datum erods, 4, 1 

datun datepubi, 6, 1 

buttoa definestr, 8, 1, “CALL entutxrpt” 
} 
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window mtrnemocn, 3,1 
window defawntr, 7,2 
wiadow mtractica, 20,1 
border Tzs 

} 


VARIABLE ae_in form { 
type DPTEGER 
fomat $24 
deowlinit a 
wplinit 16 
defeuit 2 
} 
VARIABLE pwretuat { 
foundia "VARCEAR pr pwr u 
type eTRIwG 
fomet &-és 
} 
DATUM pwretuat { 
au—_Tows i 
aun _solums 106 
variable pwretunt, 0, 2 
leader = {* 
trailer =3* 
pinkable wo 


type STRIRG 
format a-is 
} 

DAM =6mistypel = { 
au—_ rows a 
aus columns py 
variable mistype, 0, 14 
Jeader “Misesice type:* 
helpfile belp/mistype.hlp 


aum_oolumas as 
variable mistype, 0, 14 
leader “Missica type: 
pickable wo 
} 
VARIARLE prealtiev { 
foundia "ALTSPRC prelowalt .spea“ 
type erRING 
foraat Sa 
} 
DATUM prealtiev { 
AWE rows 1 
aum columns io 
variable prealtiev, 6, 0 
pickable wo 


fouadia “ALTSPEC curlowalt .spes" 
type wrTRINa 
fozmmat %8s 
} 

DATUM curaltiew { 
Bum _rows 1 
aua_oolumns 221 
variabie curaltlev, 6, ii 
leader "Alt: a 
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format 812 .24¢ 
lowlinit 0.06 
wplitait 4600.0 
dafault 100.0 
} 

DAMM ~preprreet { 
num rows a 
awn _colume 12 
wariable ac_ pre pwr, 0, 6 
pickable pe] 


type DOUBLE 
fomet $10.31£ 
lowlinit 0.0 
wplimit 4000.0 
default 100.0 


aun rows 1 

aum columas zi 

variable ao_cur pwr, 0, 11 
ieader "Power : . 


aun rows 2 

aum columns ® 

variables ac pre spd, 6, 6 
trailer "“K?rs" 

pickabla Pe] 


type ” SFaGER 
format 83d 
lowlinit 100 
wplimit 600 
default 450 


num_rows i 

aw columns 21 

variable ac_cer epd, 6, 11 
leader * Speed . 
trailer “ra" 


aum_rows a 

uum oolumas 3 

variable prenavpt, 0,0 
piakabile bi) 


aun rows 2 

aum_ columme 21 

variable curaavpt, 6, 11 
leeder "Mavpoint :° 


} 


TEXYLIWE ocanciperatzxt {"Cancel data entry for this missica"} 


BOTTOM eancipera { 


aun rows i 

owe colums 35 

test line canciparatzt, 06, 2 
helpfile balp/canclatr. hip 


) 


TEXTLINE saveperatst {*Save this missica’s data*} 


SUTTON 8 6seavepera { 


sum rows 1 

aun _columss 30 

teztline eaveperetst, 6, 2 
helpfile help/savenias .hip 
} 


aum—_ rows pF 

aum_oolumas 33 

taztiize operdatatst, 0, 2 
balpfile help/entrope .hilp 


TRXTLINME mtriabeltxst (HAV ¥Ix FIX TYPE WIDTH") 
TEXTLINE mtrtxt (“REFERENCE INFORMATION FOR DATA ENTRY") 
7EXTLINR curpretzti (°CURREN? PREVIOUR"} 

TRXTL INE ourpretst2 (°------~ aatatetateetehel | 

WINDOW cpestry { 


atm rows 10 
num _columas 78 


au~ rows 17 

aus ooclumas 78 

detun mistype, 6, 2 

éatum acamme, i, 2 

tazt line mtrtzt, 0,40 

taxtline mtriabeltzt, 2,38 

teztline curpretxti, 3,14 

textline curpretxt2, 4,14 

datum carmavpti, 5, ‘1, *CALI VCAPIFAL écurnavpt*, 
“REWVALS" 

datum premavpti, 5,25 a 

datum curspeed, 7, 2 

Gatun prespeed, 7,28 

detun curpwreet, 9, 2 

datum preprrset, 9,22 

aati prretunt, 20, 18 

datum curaltlev, 12, 2, "GALL alt2dec Scurlowalt”, 
"REWVALS" 

datum prealtilev, 12,23 


box 1, 37, 14, 77 
Line 3, 38, 3, 76 

itme 1s, 0, 18, 77 

bettoa nextaavpt, 14, 2, "CALI, astuispt” 
buttoca 

buttca 


texztblock mtr, 4,38 
} 
SCREEN wtrflt { 
title “FLIGET PARAMETER FITRY* 
window wt rasmccm, 2,1 
window fltpera, S,1 
border TEs 


SCREEN cpsatry { 


title “FLIGHT OPERATION DATA EWFRY FoR 3ePR" 
window wt xcnemcom, 3,2 

window opentry, 6,1 

border Tz22 
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} 


SE SF OF SE OE 0k BS SS BS ES SSS BIS S&S BSS O68 OS i ee ho SS SSS SC SE CSCS SS SSS SS SSS Se S2enewes 


~ Declarations for seascaal MFR and REQUIRMAEITS 


Ee 8 8 8 BS FS OF Ee ee ete ee a OSS SS SSS Se SS SS SS SSCS SSS eSeeesceee 


decaite, 0, 0 
help/uathaite.hip 


26 

decday, 0, 5 
"pEc:” 

help /mathday . hip 
6 

nownite, 0, 0 
help/mathaite.hip 
10 

aovday, 0, 5 
"ywov:” 


juinite, 0, 0 
help/usthaite. hip 


16 


47 


variable febday, 9, § 
leedar “res :” 


datus ‘jandey, 4, 1 
datum Jjaananite, 4,12 
dGetum febday, 5, i 
Gatum febaite, 8,12 
datum marday, 6, 1 
Getm sarnite, €,12 
datum aprday, 4,29 
datum a«praite, 4,31 
datum mayday, §,20 
datum maynite, 3,31 
datum Jjunday, €,20 
datum juanite, 6,31 
datum julday, 4,39 
datwm Julnite, 4,580 
datum augday, 3,39 
datum sugnite, 5,30 
@atum sepday, ¢,38 7 
datum sepaite, €,306 
detum ocotday, 4,38 
Getm octaite, 4,69 
datwm novday, 5,38 
da@atum novaite, 5,6. 
datum deoday, 6,36 
datum decaite, 6,49 


-~ Declarations for sew SELECT AIRCRAFT AND MISSION FOR MFR 


Se a I a I TIE ET EE EL I I BI FE FI IE EY 
TEXTLINZ shwncremistxt {"Show more mission sames (if any) "} 


BOTTOM ehuporemis { 


num rows i 

au columns 36 

teztline shunoremistzt, 6, 2 
haipfile help/shuzmiss .hip 


TEXTLINR recelmis {*Recall cee of the following missicas”)} 


awa_rows i 
Sum 6olumas 40 
datum misneme, OO, 2 


betton stuemis, 2, 2, “ADD WINDOW newniemm 7 3°, 
“UPDATE DATUM misname”, 
"CALL penwmieon cid.arr” 

button shwecremis, 1, 40, "CAL: esbunch" 

taztline recalinies, 3, 2 


datum wmuldatoo, 4, 4 
datum muldatol, 5, 4 
Gatwm wmuldet02, 6, 4 
Gatum wmuldet03, 7, 4 
datum muldet04, @, 4 
@atum amidetos, $, 4 
datum muldatO6, 10, 4 
datum muldat07, 11, 4 
Gatwu muldst0s, 12, 4 
datum muldatos, 13, 4 
datum wmuldatio, 4,42 
datum muidetii, 8, 42 
datum wmuldeti2, 6, 42 
datum wseldati3, 7,42 
datum muldatid, 8,42 
datum muldetiS, 9,42 
dGetum muldetisé, 10, 42 
datum muldeti7, 11, 42 
detum muldstié6, 212, 42 
detwa muldatis, 13, 42 
bettoa malbut0o0, 4, 2, "CALL Migcoan deplmult [0] .arz* 


button malbuet0l, 5S, 2, "CALL MIScoan dspleult [1} .arr* 
bettoe mualbut02, 6, 2, “CALL MIgoonn deplmalt [2] .arr* 
bettcen mulbetO3, 7, 2, “CALL MXISocun dsplmelt [3] arr" 
button mulbet04, 8, 2, “CALL MiSocan deplmult [4] .arcr” 
buttoa mulbetoS, 9, 2, "CALL MiScconm dsplealt [5] .arr* 
bettoe walbctOs, 20,2, °CALL, Migcona deplnmult [¢j arr” 
bettoa mulbut07, 11, 2, °CALL MiScoan depleult (7) .arz* 
betton wmulbetos, 22, 2, "GALL. MiScona deplinult [8] .arr" 
buttoa wmulbutos, 13, 2, “CALL MtSoccen depimcit [8] arr 
bettcea mulbutic, 4,40, “CALL MiScoan deplmalt [10] arr” 
bettce malbutii, 5,40, “CALL MXSocan dspimult (11) arr" 
betton selbutiz2, 6,40, “CALL MiSconn depleult (12) arr” 
buttoe melbuti3, 7,40, "CALL MYSconn dsplwult [13] .arr* 
Sutton malbutl4, 8,40, “CALL MrScoonn depluuit [14) .arr’ : 
betton melbutis, 9,40, "CALL MISccoan deplmult [15] .arr” 
buttoa mualbutisc, 10,40, “CALL MiZconn dsplanit [16] .arzr° 
battea welbati7, 11,40, “CALL MiSconn dsplmult [17] .arr* 
buttoa mulbctis, 12,40, “CALL MIgconn dsplimult [18] .arr” 
batten malbutis, 13,40, “CALL MiScoan deplmult [19] .arr* 
bettoa retucmis, 13, 2, “CALL eslista", 

"CALL MEW SCREEN cldecreen* 


TEXTLINE salmisetxt ("Select nissica"} 


sorTcH salmiss { 


num rows i 

num_columms 38 

textline selmisstxt, ©, 2 
helpfile help/selmiss .hip 


FEXTLIMNE fltperinftst ("Specify flight pasumeter iaformaticn } 


BOTTOM fltpariar ( 


au— rows 1 

sum colums 37 

teztline fltpariaftsxt, 0, 2 
balpfile help/fltparem. hip 


} 


WIDOW Celacmiss { 
au—_rows is 
aw—n_columas 77 
Gatm acnaemel, 1,1, "CALL vwfyeamtrs tid.arr” 
buttca selniss, 3,2, "CAL pechgmies” 
buttom fltperinf, 5,2, “CALL pemtrzit?’ 
betton retetresti, 13,2, "CALL casanis" 
} 


SCREEN epentrmis { 
title “SELECT AIRCRAFT AMD MISSION FOR 1FR" 
wiadow mtroemocal, 3,1 
window selacmies, 7,1 
border YEs 


SCREEN chomis { 
title “SELECT AIRCRAFT AMD MISSION FOR DEFR" 
window utrnamoemi, 2,1 
wiadow curmise, 6,2 
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border Tus 
} 


Oe ee ley a er a ele he ee le i FD ie oh eS ee ee oe ee 2 EP OS he PP ee ee 


~ Declaraticas fer Day-Higkt window 


YY NP PD pS e  e> e Pm strwctn em u ccssa es ex 


DATUM aight { 
aw rows 2 
num columss 16 
variable aigst, 0, 8 
leader "Might :* 
halpfile help/aiteope .hip 

} 

parvtm 8 day { 
am rows a 
num _colume is 
variable day, 0, € 
leader *Day:” 


awa rows 12 

nua columas 77 

detun acaame, 1, 1 

taxtiine iastr2tzt, 3, 1 

datum day, S$, 2 

datum ; 8,15 

button savepere, 10, 2, "CALL expmope’, 


A eS ee le te i SS LLL SS Ye ah ee Mh A ee a ee ee oe ee a ee 


num rows 1 
aum_ columas 37 
variable ac_in form, 0, 35 


foundim “VARCEAR misdesc.arzr" wthis descriptica is for missica 


} 
DATUM misdesal { 

au rows 1 

aum columns 7¢€ 

variable misdesc, 0, 7 

leader *Desar:* 

pickable i) 

} 
DATUM 86misdesc { 

sum rows i 

mum columns 7¢ 

wariable misdesc, ©, 14 

leader "Desariptica:” : 


awa rows 3 
ava colummse 78 
line 2,0, 2,77 
datum misnemel, 0, 2 
datum misdeeai, 1, 2 
} 

WIEDow misspea { 
aun rows i¢é 
atm coluaas 77 
Gatwm wmisdesc, 1,2 
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datum mistypei, 3,2 
datum sortie, 3,2 
bettoa retetreatl, 14,2, “CALL MEW SCREEN oldecreen” 
bettom retetreat?2, 14,47, "CALL emtexmis” 
) 


ocemmmw misspec { 


titise "MISSICN SPECIFICATICN FOR AN MFR" 
window mtrcaencen3, 3,1 

window misepea, 6,1 

border TEs 

) 


~01-14-88 est will try to fix this file so it wil be only for assessments 
“01-14-88 ost changes will be ccumented with date 
01-16-68 st change title oa first screen, change lat. loag. fomeat loa 
~ map ceatrol 

ot 


#-01-17-88 goa’t to fiz sdf file ccumented with 1-17-88 


Se a te he eS SS A el Sw SS HD DD eS SS A FD ND SS SE SAD cm mS SAE Do 


0 ee ee FO OE SOS SOS SSO OS BOS wt SESS Bee = SBS ene weeeee ey te he ve 


} 
DATUM asseneme { 
aum_xzows bE 
awa columms 506 
wariable asesename, 0 , 18 
leader "Assecement name: * 
piakable wo 
} 
DATUM assenemeal { 
au rows a 
aum columns 75 
variable ascename, 90 , 30 
leader "Meme of currest assesment: *° 
pickable bs) 


) 

DATUM comment { 
awa rows = 1 
aum colums 76 
wariable ocument, © , 10 
leader "Comment: “ 
pickable moO 


type FFRING 
format %-30e 
} 


DAMM cureepas { 
au rows a 
aun columas 77 


wariable cumapaam, 0 , 19 


} 
WreDow lin { 
sum _ tows 4 
uwn_colums 78 
dine 0, Oo, 0,77 
) 
WINDOW essnemcem = { 
aum_ rows 3 
awn ocolunne 78 
datum asvenampel, 0,1 
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datum camest, 1, 2 


dine 2, 9, 2,77 

} 

WINDOW assaamocmi = { 
nw rows 4 
awm_colums 78 
éetun assenmel, 0, 0 
datum ocument, 1, 1 
éatcom curmepass, 2, 1 
iiae 3, 90, 3,77 

} 


2 ee a Pe ee es ry we en tt ws exp eh et =e er 


~ Declaraticas fer buttoas used ia majoractica footer 


LL LS Se SY SE i Sy ee gg cw ween see gp ptr rs ee 


FEXTLINE probdef {"ADD INFORMATION TO CURRENT ASSESM@AEW?” } 


BOTTOM preobdef { 
atm rows 2 
mum columns 39 
teztline prebdef, 0, 2 
healpfile balp/probdef .hip 
} 


TEXTLINE probdef1 (“ADD TO ASSESSMENT DEFINITION” } 


BUTTON prebdefl { 
aun rovs i 
num colums 31 
text line probdefl, 0, 2 
helpfile help/prebdef .hip 
} 


TEXTLINE enalysis { “ANALYZE DATA” } 


, BUPTOM analysis { 


awa rows 1 
num columas 15 
textline amalysis, oO, 2 


helpfile help/datanal hip 
} 


TEXYLINE reportgem { “MAKE A REPORT® } 


DUTTON reportgen { 

aum_rows 2 

num colummas 16 

text line reportgen, 0, 2 
’ helpfile help/reportges .hlp 


TEXTLINE vwohklistxt { "VIEW CHECKLIST FOR CURRENT ASSESManFT™ } 


- Declaraticas for majoraction footers 


num rows 4 

awa oolumas 78 

lize 6, 0, 0,77 
title 

beuettoa prebdef, 
bettca analysie, 
buttoa vwohkiist, 
butteca reportgen, 


) 


WINDOW majoractioal { 


au—_rows 4 
aum_colums 78 

Line 0, 0, 0,77 
title “Alternative 
buttoa analysis, 
battca probetat2, 
buttoa vechklist, 
bettoce reportgea, 


atm rows 4 

aun _columme 78 

line 0, 9, 0,77 
title “Alternative 
bettoa prebdefi, 
bettoa reportgen, 
duttoa vwohkliat, 
battca probetatz, 


} 


- WINDOW majorectiocad { 


nw_rows 4 
uum _ columns 79 

lise o, 9, 0,77 
title “Alteraative 
buttoa vwohklist, 
button probetat2, 
bettoa prebdefi, 
buttoa enalyeia, 


sua rows 4 
aum_columms 78 

Line 0, 9, 0,77 
title "Alternative 
battoa probetat2, 
buttoa reportgen, 
butteca prebdefi, 
bettoa analysis, 


LFS SS SY Se An SE A Ae GD ae SYP Sr SHR PEP END i Ms -E-D D ee 


wheader for problem status screen 


"Alternative acticas you asa now take:* 


2, 2, “WEW_ SCREEN probdefscreen" 
2,56, "MEW SCREEN analysiscreen" 

3, 2, "NEW_SCREEN viewchacklistscreen” 
3,36, °CALL, cummy2° 


~header for problem definition screea 


"NEW SCREEN analysiscreen" 

2,46, “CALL peprebst*’ 

“MEW SCREEN viewchecklistscreen"* 
"CALI, dummy2° 


wheader for dete analysis screen 


2, “WEW SCREEN probdefscreen” 
3,47, “REW_SCREEW analysiscreen” 


FRETLINE loedglobal (“LOAD LOCAL PATA FOR GENERAL ACCESS" } 


acticas you can sow take: *° 
2, 2, "GALL. dummy” 


helpfiie help/loedglob. hip 
} 

WINDOW majoractioas { 
au— rows r 
mua_columas 79 
line Oo, 6, 0,77 
title "Alternative 
button loadglobal, 
buttoa ascecement, 


} 


SCREEN mtrntry { 


title “MFR DATA ENTRY” 
window wt rnamccm, 3,1 
window mtrdatentry, 7,2 
window majoractica3, 18,1 
border Yue 


3, 2, “CALL peprobst* 


53 


” Declarations for probles etatus scresa ‘ ; 


} 

Wimpow prebsetat { 
aw rows 5 
aum colusms 78 
datum etartdate, 6, 2 
Gott lastdate, 2, 2 
Gotu plasriast, 4, 2 


} 


TEXTLINB chgasetzt {“Work com a different assesment" } 


morTrTromw chgase = { ~1-1¢6-88 
awm_rows z ~1-16-68 
aus colunmas 70 1-16-86 = 
taztiine abgasestzxt, 0, 2 “1-16-08 
helpfilea help/probdef .hip ~1-16-86 
} 
WINDOW chganssess§ { -change to different ssesesenent 
aw rows a 
aun _ columas 78 
buttoa aagase, 0, 2, "CALL pechgaes* 
} 
- Declarations for ENVIRCEMENTAL ASSESSMENT DEFINITION SCREEN 


LLL Sy Se A A SL LP Sl YP i a aS yr A ed ee 


FEXTLINE modmoatzt {“Work with MOA informatica (number or type of aircraft, missicas, etca.)"} 
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helpfile help/mcawork. hip 
} 


TESLINS modetrtzt ("Work with MPR informatica (awaber or type of aircraft, missicas, eta.) °) 


FESTLINE modmaptst ("Work with map informatica (designate land uses, update maps) "} 


border YES 
) 
- Declaratica for eateriag ccordizates window 


T2X2LIM entuppir 
{"ater upper-left corner coordinates of area of current iaterest”} 


TEXTLINE entlowrt 
("Enter lowar right corner coordinates of area of curreat iaterest”} 


DATUM shwilat2 { 
nu—_rows pF 


aun columas 28 
variable shwilat, © ,11 
ieader "letitude: 


helpfile heip/ccombmap.hip 
} 


DATUM 8 shwicag2 { 
au rows 1 
aum columas 2s 
variable shwileng, 0 ,12 
leader "“Lomgitude: ° 
helpfile help/conbmap.hip 


} 
WINDOW emtcacor { 
au— rows 106 
awn oolumms 78 
taxtiltiae extupplf, 2, 2 
datum eatiat, 3, i, “CALL lat2dec Gent", "NEWVALS" 
datum entloag, 3, 36, “CALL lomtdea Cent", “NEWVALS" 
text line emtlowrt, 58, 2 
datun ehwiat2, 6, 1, "CALL lat2dec éshow", "NEWVALS" 
datum ehwilecag2, ¢, 38, “CAIL lon2tdea Sehow" , *REWVALS" 
} 
~ Declarations for DATA AMALYSIS SCREEN 


TEXTLINE gecdatinaqtxt {"Make gecdata iaquiries o8 BAP screen") 
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TEXFLINE compaciseftzt {*“Gompare acise effects"} ~1-17-88 


BUTTON csampnoiset { ~1~-17-068 
aun rows i “1-17-88 
aun columms 76 “1-17-66 
textiine compaciseftst, 0 ,2 ~1-17-69 
heipfile help/ccmpecis .hip “2-06-08 
} 1-17-68 


TEXTLINE calamociseftxt {°Calculate noise effects in specified area"} 


BUTTON ocnlancise£ { 
RUB_rows pI 
awm_columms 76 
tezt lise enlcaciseftxt, 0 ,2 
halpfile help/effoalc. hip 
} 


FEITLINE calcaciserptxt ("Calculate acise ezpoeure ia specified area“ } 


porrTrom calomeisezp { 
uum rows 1 
mum columms 76 
teztline ealancisezptst, 0 ,2 
helpfile help/expcalc.bip 
} 


TEXTLINEZ ocnlogklooktzt {"Calenlate qeicklook (poiat) exposure estinate*} 


TEETLINE emtcoortzxt ("Rater coordinates from keyboard”) 


BUTTON emtoacor { 
auB_ rows 2 
atm ocolumas 40 
taztlise eatooortst, 0 ,2 
belpfile belp/kbdnatry.hip 
} 


TEXTLINE usemaptxt ("Use map screen"} 
Burrow usemep { 

awa rows 2 

num _colums 30 teztline usemaptst, 0 ,2 


helpfile help/usemap.hip 
} 


TRXYLINE selectanatxt {“Acticas you can now take to analyze envircomental assesment data:"} 


FEXTLINE defgecereatzst (“Specify a gecgraphia area of interest :"} 


au tows 12 

gum columns 768 

testline selectanstzt, 0, 2 

bettoa calogklock, 2, 2, "CALL dummy” 
buttoa calcnocisexp, 3, 2, “CALL dummy” 
bettoa calcnoisef, 4, 2, "CALL dummy” 
buttoa ocompncisef, 5, 2, "CALL dummy” 
bettoa qgecdating, 6, 2, “CALL dummy” 
taextline dafgecereatxt, 8, 2 

buttoa Uusemap, 9, 2, "CALL dumy2” 
buettca eat coor, 10,2, °ADD WINDOW eatocor 5 1" 
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FLITE shownoretzxt {"Show more assesementes (if any) °} 


BorTTCR ahouncre { 
num rows i 
awa_ocolums 37 
teztliine showncretxt, 0 ,2 
: helpfile help/getaseat.hip 


TEXTLINE recallasstxt (“Recall cae of the following assesmments:") 
TERTLINE staewasst xt ("Start a sew ascesanent"} a 


BOSTON etaewass { 


num xowe b 5 

awa_columnse 2¢@ 

teztline stnewusetzt, 0 ,2 
heipfile help/newassnat . hip 
} 


VARIABLE newnsnam = { 
fouadia “VARCHAR n2bv.arr* 
type ern mEa 
format &-308 


aun rows i 

awa columas 40 

variable Bewasaan, 0,7 
leader "weme :* 

helpfile selp/staewass . hip 


aw rows i 
num ool mms 40 
datum newasaam, 0,1 


awa rows i 

atm columas 78 

button etnewnse, 0, 2, “ADD WINDOW sewasamm, € 3°, 
“UPDATE DATUM newasnam”, 
“CALL penwasen n2Zbv.arr" 

button showmore, ©, 41, “CALE ubanch” 


num rows 2 
awa_columas 78 
taszt line recallasestzt, 0, 2 


bettom wmulbut00, 6, 0, "CALL ASANoonn depimult [0] .arr* 
batton malbet0l, 1, 0, "CALL ASANconn dspleult {1} .arc® 
batton mulbut02, 2, 0, “CALL ASANconn deplmualt [2] .arr® 
button smulbct0s, 3, 0, "CALL ASANcoan deplauit [3] .arr° 
bettom mulbut04, 4, 0, “CALL ASANocan desplmult (4) .arr” 
bettcen malbutoS, 5, 0, "CALL AZANoonn dsplauit [5] .arr” 
button mulbuto6s, 6, 6, "CALL ASAZcona deplault [6] .arx" 
button melbut07, 7, 0, "CALL ASANconn dsplmait [7] .arrc* 
button mualbet0s, 8, 0, "CALL AZANocan depimelt [8] .arr” 
button malbuat0s, 98, 0, “CALL ASANooan dsplmult [9] .arr” 


batton malbutio, Oo, 0, "CALL ASANcoan deplmcit [10] .arr” 
batten mulbutii, 1, 0, “CALL AZANconn dsplmult {11} arr” 
butten mulbati2, 2, 0, “CALL ASAWoconn dsplmult [12] .arr” 
batten malbuti3, 3, 0, "CALL ASZANconn deplwult (13} .arr” 
batton mulbutlé, 4, 0, “CALL ASANcona deplmult [14] .arr” 


HP og 


ecww nm +2.amin 


wee 


betton wmulbwtis, 8, 90, "CALL ASANocoan depimult (15) . are" 
betton wmulbeti€, 6, 6, “CALL ASANconn deplenit [1¢] .arr® 
battom mulbuti7, 7, 0, "CALL AZANooan depiazit [17] .arr* 
bettoe mulbutis, 8, Oo, “CALL RSANocan deplauit [18] .arr” 
bettcoa mulbutl9, 98, 0, “CALL ASANocas depimalt [19] .arr* 


} 
TEXTLINE retacass {("Comtiaua without Selecting assesment” } 


BUTTON retessent { 
aun rows p 
am colums 40 
tertlize retacass, © ,2 
helpfile help/ncassess .hip 


} 
WINDOW retweess { 
awa rows pF 
aus colums 76 
bettoca zetassent, 0,1, “CALL welistc", "CAL, Peprobet* 
} 
SCREEN chgourasscreen { 
title “SELECT ANOTEER ASSES @4aEN" 


window curasebutl, 9, 62 
window curdat, 9,8 
wiadow curdat2, 9,44 
window pretwoass, 20,2 
border YES 
} 
~ Declaraticas for MEW ASSESSMENT DEF INTICN 


VARIABLE emtdesal { 
fouadia “VARCRARSO entdeec [0] . arr" 
type sFRoING 
format. 8-€0e8 


VARIABLE entdesa2 { 
foundin "“VARCEARCO entdees[1).arz" 
type sTRIWG 


VARIARIE entdeea3 { 
foundin "“VARCEARCO eatdesa [2] .err* 
type e2RING 
format &-60s 
} 


DATUM eutdeea3 { 
aUa_rows py 
aus columas 78 
variable enatdesc3, 0 ,° 
helpfile help/eatdesca. hip 


format 8-608 
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warisble aentdesc4, 0 ,0 


num ocolumas 77 
variabie newasnem, 0 ,35 
leader “Nema of new assesamant. definitica:" 
piakable 0 
} . 

WiIEDow snewasdesc§ { 
am rows + 
ama colume 70 
éatwun newasenm, 1,3 
testiinze entdesctzt, 3,4 
datum entdessi, 4,4 
datum ent.desc2, 5,4 
Gotu enatdesct, €,4 
datum eatdeea4, 7,4 
border Tus 
} 

o Declaraticas for database housekeeping screen 


TEXTLIMR updateiafctzt (*Update iaformation") 


aorrce updateinfo { 
aum_rows i 
aum columas 80 . 
textline updateinfotxt, 0 ,2 
helpfile help/updateina.hlp 
) 


TEXTLINE asstabletst2 ("Priat list of 211 solummes in an ascocement’s tables" } 


BUTTCH asetable2 { 
au rows 2 
aun _columas 33 
teztline asetabletzt2, 0 ,2 
helpfite help/asstable.hlp 
} 


TRETLINE asetebletzti {“Priat list of an aseecement’s tables") 


BUTTON asctablel { 
aum”rows i 
num columns 80 
teztiine asetabletszti1, 0 ,2 
helpfile halp/asstable.hip 
} 


TEXTLINE assesstxt {"Print list of all assesements"} 


BorToN aseese { 
awa_rows i 
num oolumas 50 
textline assesstxt, © ,2 


helpfile help/aschelp.hip 
} 


FEXTLINE dbhsekpgtxt ("WARWING: Actions you take om this ecreen affect ASAN’S 
permanent databases !")} 
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Wrpow Gbhsekpgectica { 
aun rows 13 
num _columas 78 
line 0,0, 0,77 
taztline Gbhsekpgtxt, 2,2 
buttca dedate, 4,2, °CALL dummy” 
buttoa assess, 6,2, “CALL pratabo" 
bettoca aasstablel, 8,2, “°CALZ SUpropt i* 
bettoca asetable2, 10,2, “CALL SUpropt 2“ 
button updeteinafo, 12,2, "CALL dummy" 
} 
SCREEN dbhsekpgscreen { 
title “DATABASE BOUSEKEE? ING" 
window abhsekpguectica, 2,1 
window majoracticas, 
border Yus 


awm_xows 10 
mun columns 2 
bettcan mulbetoo, 
betton9 malbutoi, 
bettoca 9 wmalbut02, 
button 38 mulbut63, 
betton 9 maulbut0é, 
betton mulbut6S, 
butten wmalbatO6€, 
dbettoan walbct07, 
buttca 9 wmnlbutos, 
buttoa snlbat0s, 
} 

WrNDow quickasebuti1 { 
aum_xows id 
num columss 2 
button wmualbctio, 
button 93 mulbdctil, 
bettoa smulbcti72, 
bettoa mulbati3, 
buttca wmalbutléd, 
bettoca maldcti5, 
battoa mulbutl1é, 
bettca mualbdcti7, 
bettoca wmalbutis, 
button 9 mulbctis, 
} 


= ° = 


= 


ba) = 


= 


wena woeunu sd 


"CALL SUprint dsplmult [0] .arr" 
"CALL SUprint dsplmult {1} .arr” 
“CALL SUprint dsplauit [2] .arr” 
“CALL SUprint dsplault (3) .arc” 
°CALL SUprint dsplmult [4] .arr® 
“CALL SUprint dsplmwult (3) .arr” 
“CALL SUprint deplmalt [6] .arr® 
“CALL SUprint dsplmult [7} .err* 
"CALL SUprint depluvit (8). arr” 
“CALL SUprint deplmuilt (9} err” 


"CALL SUprint depluult [10]. 
"CALL SUprint dsplmult [11]. 
“CALL SUprint deplenit [12]. 
“CALL SUprint dsplemlt [13]. 
CALL SUprint dsplmult (14). 
“CALL SUprint deplenit [15] . 
“CALL #Uprint depimuit [16]. 
“CALL SUprint dsplmult [17}. 
“CALL SUprint desplmult [18]. 
"CALL SUprint dsplmult [19]. 


TEXTLINE suselect ("Print list of SUPERUSER’s tablee”} 
TEXTLIBER hqvelect {Print list of BEADQUARTERS’ tabiles"} 


au—_rows p 
aun oolumas 7¢é 
button 


WIEDOW bqsuselect { 


awa_rtrows 3 

num columas 76 

batton 

betton suselect, 2,1, 
} 


SCREEN csilcasscreen { 


hqvelect, 0,1, “CALL SUpropt 3° 


"CALL SUpropt 4° 
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title “SELECT ASSESSMENT FOR DATABASE PRINTOUT” 
window bqeuselect, 4,1 

window recalass, 8,1 

window quickasebut, 8,3 

window quickassebueti, 9,42 

window eardat, 9,5 

window eordatl, 9,44 

window retwopra, 20,2 


ee re ts ees its ee th ele Ae et a lr EP ne ee i ee ee eee 


o Deciaraticas for view CEECK-Lis? sSCREE 


FEETLIWE octherchkist ("View aacther shecklist"} 


nurToN otharchrist { 


num_rows i 
aun columes 25 
taztiine otherchkist, 0, 2 
helpfile help/othrakk.hilp 
} 
TEXTEIOCE foagiz { 
filename tztbik/foasis2 .tst 
au rows 10 
num_ columns 76 
border Tus 
) 
Wwiapow fonusi2 { 
au rows 13 
aun _columss 78 
taztblock foasi2, 0,1 
battoa otherchklst, 12,2, °REMOVE_WIRDON” 
} 
FELTRILOCK foasil { 
fileasme tztblk/foasii .txt 
uu rows 20 
avis col umes 76 
border Yus 
} 
WINDOW foasii { 
awa rows 13 
num columas 78 
taztbicak fousil, 0,1 
bettoa eotherchklet, 12,2, “REMOVE_WIRDOW" 
} 
TEXTRICCE catex3d { 
filename exztbik/astexr3 .tst 
am rows 10 
aum columas 7¢ 
border Tus 
} 
WIEDOW cater3 { 
au rows i3 
awm ool ums 78 
teztblock catexz}, 9,1 
betton otherchkist, 12,2, “REMOVE WINDOW 
} 
TEXTBLOCK catex2 { 
fi lenmeme txtbik/aastex? .tzt 
aw xows 10 
num oolumns 76 
border Yas 
} 
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ee a 


filename tetbik/asterl .txt 
awe rows 10 

am columns 7¢ 

border us 


aun rows 13 

aun _columas 78 

teztblock oatesi, 0,1 

battoa otherchkist, 12,2, ‘REMOVE WIEDOW’ 


TEXPLINE foasi2txt { 
“Show documentatica necessary for finding of ac significant impact") 


BOTTOR fonsi2 { 
aum_rows a 
aua_oolums 72 
textline foasi2tzxt, 0, 2 
helpfile help/fcasi2 Bip 
) 


TRXTLINE fomeiitzt { 
“Show HEPA bases for finding of no significant impect (FONSI) *} 


BOTTOM fousil { 
aW—_tows 1 
aun ool wang es 
teztline fomsiitat, oO, 2 


helpfile help/foasi1.hip 
} 


TEXTLINE oatex3%txt {"Show documentation needed for categorical exclusicas")} 


FEXTLIWE ocatexttst ( 


TEX?LIMNR catexitzt {°Show NEPA beses for eategorical exclusicas (CAPEK) °)} 


worrom eatezl { 
BUB rows i 
atm columas 85 
taxt lise eatezitzt, 0, 2 
helpfile halp/oateril .hip 
) 


bettca $ocateri, 2,2, "ADD WINDOW catext 3 1° 
butten catexz, 4,2, “ADD_WINDOW catex2 3 1° 
buttce ocatex3, 6,2, °ADD_WINDOW catez3 3 1° 
betton fonsil, $,2, “ADD WINDOW fonsil 3 1° 
button foasi2, 20,2, "ADO _WIMDOW fonsi2 3 1° 
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“INCLUDE STATEMENT FOR TEE ASAW typedef DEFINTTICNS REEDED ‘ro 
~ COMPILE USUBS.C WITHOUT INCURRING THE WRATH OF THE COMPILER 


Ee A als le Hh ln le A hme GS hd SE A Ee OS em TS A ED AAD Se A A rH Ae GD we Se - 


VARIABLE muldat0o { 
fouadin “VARCEARIO deplmait [0] .arr” 
type STRING 
format %-306 
} 


DATUM muldet0o ( 
aum_rows a 
sUm_columms 32 
variable muldatoo, 0, 2 
pickable wo 
} 


VARIABLE muldat0l { 
foundin “VARCEAR3O dsplmult [1] .arr” 


type erRiIna 
format 2-308 


VARIABLE muldato2 { 
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aum— rows i 

am 9olumes 32 

wariable suldato3, 0, 2 
piakable mo 

} 


VARIABLE wmuldeto4s { 
fouadian “VARCHARIO deplmult [4] .arr° 
type eramea 
format = 8-308 
} 


DATUM wmuldetoOd { 
nU—_rows + 
Bum columms 32 
variable muldatO4, 06, 2 
pickable Pe] 
} 


VARIABLE mauldato5 = { 
foundia “°VARCHARSO deplmult [5] .err° 
type STRING 
format %-308 
} 


DATUM maldat0S { 
aun_rows i 
aum_columas 32 
variable muldetoS, 0, 2 


pickable . mo 


VARIABLE muldatOs { 
foundin “VARCEARIJO deplmult [6]. arr 
type eTRIws 
format 2-308 
} 


DATUM =wuldetOE { 
aUm_rows i 
mum_columns 32 
variable muldatO¢, 0, 2 
piakable wo 
} 


VARIARLE muldato7 { 
foundin "VARCEARIO depimnlt [7] .arr® 
type STRING 
format &-30e8 
} 


BAT wmualdat07 ( 
num rows 2, 
num columas 32 
variable muldeat67, 6, 2 
pickable be] 
} 


VARIABLE muldatos { 
foundin “VARCEARIO dsplmult [¢] .arr® 


variable muldetos, 0, 2 
pickable wo 


VARIABLE muldat0s { 
foundin “VARCEARSO deplauilt [9] .arr” 
type erTRiIwG 
format %-308 


64 


} 


VARIABLE mauidatiO { 
foundin °“VARCEARIO deplmnit (10) .arx” 


VARIABLE muldetiil  { 
foundia “VARCEARIO deplmelt [11] .arc* 


type STRING 
format %-30s 
} 


VARIASLE muldeatiz { 


VARIABLE muldati3 { 
foundin “VARCHARSO dsplaait [13] arr” 
type FTRING 
format &-30e 
} 


DATUM  wmaldeti3 { 
aum rows pS 
aum_columas 32 
variable wuldati3, 0, 2 
pickable wo 
} 


VARIABLE muldatia { 
foundin “VARCEAR3O dspimult [14] .arz” 


Bt ocolwmms 32 
variable muldetl4é, 0, 2 
pickeable wo 

) 


VARIABLE muldatiS { 
foundin “VARCRARSO deplmalt [15] .arcr* 
type  sFRina 
format. %-30s 
} 


DATUM muldatisS { 
num rows i 
num colummas 32 
variable muldatis, 6, 2 
pickable mo 
} 


VARIABLE muldati¢é { 
foundin “VARCHAR3O deplmult [16] .arr” 
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} 
DATUM maldetié { 
aum rows 2h 


VARIABLE muldeti7 { 
foundia “VARCEARSO depleuilt [17] .arxc” 
type STRING 
fommat %-30s 
} 


DATUM wmuldeati? { 
au— rovs 1 
au colums 32 
variable maideti7, 0, 2 
pickable wo 
} 


VARIABLES muldetis { 
foundia “VARCEARIO depimult [18] . arr” 
type STRING 
format 8-308 
} 


DATUM mmldetis { 
au rows i 
aun _columms 32 
variable maldatis, 0, 2 
piakable moO 
} 


VARIABLE muldeatid { 
foundin “VARCEARIO deplmult [19] .arr” 
type eTRInG : 
format %-308 


ieeder "Your name, please:* 


format %-10s8 
} 


DATUM paseword { 
am rows 2 
awn colums 55 
variable paseword, 0 , 23 
leader "Please exter paseword:” 
halpfile help/password.hip 
} 


- Other General Storage for Verification, Fests, Etc. 


foundia “VARCEAR a2bv.arr” 
type Fs be} 
format 8-208 


- Boise Source Attributes 


awa rows a 

au columns 60 

variable eraiaé, 0, 21 

leader "Meme of current MFR:° 
pickable wo 

} 


VARIABLE erodeea { 
foundin “VARCEAR srodesc.arr” 
type ern ima 
format a~-B4s 
} 


DATTM srads { 
awa rows i 
mum columas 76 
variable eradess, 0, 22 
leader "“Descriptica: 
halpfile help/mtrdesc.hip 
} 


DATUM wmtrdesa ( 


aum—_ rows a 

uum columas 70 

variable srodasa, 0, 7 
leader "Hote: ° 


VARIABLE schedule { 
foundin “VARCEAR srosched.arr’ 
type srarIna 
format &-S50s 
} 


PATUM schedule { 
au—_rows 1 
Bum _ Golumas 73 
variable echedule, 0, 22 
leader “Scheduling activity: < 
helpfile help/schdaatr.hip 
) 


VARTABLE eroorig { 
foundia “VARCEAR srcorig.arr* 
type FYING 
format 8-50e 
} 


DATUM ocrigatr { 
awa_rows i 
aus columns 73 
vwariable sroorig, 0, 22 
leader “Originating activity:° 
helpfite help/origatr.hip 
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num rows Z 

aun columns 27 

variable eurartoc, 0,16 
a,eader "ARTCC: 


au rows i 
awa_columms 25 
variable curwidright, 6,16 
leader “Width (right): * 


aun rows 2 
awe columns 2s 
variable curwidlieft, 06,16 
leader "Width (left): ° 


DATUM curhighalt { 
aum rows i 
aum colume 27 
variable curhighalt, 0,16 
leader "High altitudes: * 
halpfile help/curhialt .hip 
} 


VARIABLE curlowalt { 
founadin “ALTRPEC curlowalt.spec” 
type SPRING 
format %8e 

} 


VARIABLE preartca { =- PREVICUS Sat 
foundia “VARCHAR preartcc.arr" 
type sTRInG 
format %3e 
} 


DATUM preartcc { 


aun rows pF 
mwWa_columas g 
variable preartes, 0,4 


piokable wo 
} 


VARIABLE prewidright { 
type  DPTEGER 
format 424 
} 


DATUM prewidright { 
au rows 1 
num columas 8 


variable prewidright, 0,4 


} 
VARIABLE prewidleft { 
type FTEGRR 
formeat. 824 


amma rows p | 
mm ooluss | 
variable prewidleft, 06,4 


aun rows i 

aws_colwums 10 

variable prehighalt, 0,1 
pickable wo 


foundin “AL?ESPEC prelowalt .spea* 
type STRING 
format %9e 

, : 

~ Goordinates 


VARIABLE entlat { 
foundin "COORDINATE emt .lat* 
type sTRING 
format. &-138 


foundian "COORDINATE ent. .ilca* 
type eTRING 
format %-13e 


VARIABLE shwlat { 


foundin "COORD IRATE show. lat" 
type TRING 
Zormmat &-13e 


} 


VARIABLE shwloag = { 
foundin "COORDINATE show.loa" 
type TRING 
format. &-l3e 


~- CORREWT or EWYER Set. 


~ WREVIOUS or BROW Set 
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type #FRING 
fozmmat &3a 
} » 
VARIARLE prefixtyp { ~ PREVIOUS or DISPLAY Set 
fouadin i "VARCHAR prefixtyp.arr” 
type #raIna 
format. $i2ze 


format §-128 


DATUae acaamel { 
aum_rows 1 
aum_columas 35 


VARIASLE day { ~ GEMERTC or JANUARY 
foundin “OPERATICNS ops [0} . day“ 
type IPTEGER 
foraat 844 


VARIABLE janday { 
LZoundin “OPERATIONS ops [0} .day” 
type INTEGER 
format %44 
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ope {i}. 


ope {2}. 


ope [2] 


ope [3} 


ope [4] 


ope [4] 


ope [5] 


ops [5] 


ope [6]. 


ope [6] 


-nite* 


aite® 


aite” 


aay” 


Bite" 


- Gay” 


»aite" 


aay” 


-aite* 


site" 
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format 04d 
} 


VARIABLE augday { 
foundin ‘OPERATIONS ope[7] .day” 
type DYER 
formet g4d 

} 


VARIARIR augnite { 
foundia “OPERATIONS ope [7] . nite" 
type DETRaGER 
format. %4d 

} 


VARIARLE sepday { 
foundin "OPERATIONS ope [8] .day“ 
type OFPECER 
fomat 84d 

} 


VARIABLE sepaite { 
foundin “OPERATIONS ops [0} .nite* 
type UOPFEGER 
format 84d 

) 


VARTABLEZ ocatday { 
fouadia “OPERATIONS ope (8) . day” 
type OPTEGER 
format %4d 

} 


VARTABIZ cotnite { 
foundin “OPERATIONS ope [9] nite” 
type OFTEGER 
format 844 

} 


VARIABLE novday { 
foundin "“CPERATIONS ope [10] . day” 
type INTaGER 
format a44 

} 


VARIABLE novaite { 
foundin “OPERATIONS cops [10] .nite" 
type OFYEGER. 
format %4a 

} 


VARIABLE decday { 
founadia “OPERATICNS ope (11) .dmy” 
type INTEGER 
fomet 844 

} 


VARTABLE decnite { 
foundia "OPERATIONS ops [11] .aite” 


type DPTEGER 
format e464 
} 
- SMisaicas 


VARIABLE misneme { 


au Tows i 

uum GOlummas 34 

variable migsneme, 0, 26 

leader “Weame of current miseica 
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foundia “VARCHAR aid.asr® 
type sTRIBG 
feumet 8-78 


variable newnisname, 0, 14 
leader "Missica neame:* 
helpfile help/nissame.hip 


TEXTLIER selact { 
“Right now you aaa type ? for help, <CTRID> ¢ to quit, or move the eurser’) 
TEXTLINE eavasce {“COMDUCT AN EMVIRCOMENZAL ASSESSMENT" } 
TEXTLINE housekp ("PERFORM DATABASE EOUSEXEEPING™ } 
TEEILINR introtxt (“VIEW GEWERAL INFORMATICN ABOUT THIS PROGRAM’ } 


TEXTLINE selacnistst {"Select aircraft and miseion for MFR") 
TEXTLINE modcurmtrtxt ("Modify current MFR} 
FEXILINE chgetrtst ("Select ancther MR‘) 


{ 8 aemwewe eeemrmmmm TUE = i mm eee ad } 


TEITLINE cancelutrtxt (°Cancel this MFR deta eatry“)} 
TEXTLINE saventrtxt (‘Save this MFR") 


FEXTLINE ehownoreamtrtxt (“Show more MYR names (if any) “} 
TEXTLINE recalintrtst {"Recall cae of the following MFRs:°)} 
TEXTLINR stnewst ctxt ("Start new MFR “} 

TEETLIMB Gefinemtrtst {°Eater route waypoints*} 


TEXTLINE actxzt {("Airareft:"} 


TEXTLINE cpseascatzt {"Opereticas are seascual”) 
TEXTLINE opthruyrtet (*Operations are even throughout year} 


TEXTLINE instritxt {°Please enter day and night operations by moeth"} 
TEXTLINE dayaite {" BAY WIGHT DAY WIGET DAY WIGHT DAY WIGET") 
TEXTLINE inet r2txt {"Please enter daytime and night cperaticas per noath*} 


TRETLINE cancmietzt {Abandon this mission} 
TEXTLINE entwisdbtxt {"Roter this mission isto database") 
TEXTLINE stneweistxt ("Start sew mission”} 


aun rows 14 
aun colums 76 
border YES 


filename t2tblk/intre .txt 


BUTTON assecenent. { 


2U—_rows 1 
awa_columns 38 
textline envess, ©, 2 


healpfile help/assess .klp 
) 


am rows 2 
au colums 35 
textline chgutrtxt, 0, 2 
helpfiie help/seimtr. hip 


au rows a 
uum solusas 56 
text line introtzt, 0, 2 
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BuTTON amodcurmtr { 
au rows 1 
uum columas 35 
teztline modcurmtrtst, 06, 2 
helpfile halp/achalp.hip 
~ so help here cus this buttca doesa’t do anythiag 


) 


WINDOW password { 


aun rows 1 
aun colusas 60 
datum pessword, 6, 5 


} 


TExrLIm tititst 
{"Developed for Noise aad Scaics Bocm Impect Yechaclogy Progren”} 


TEXTLINE tit2tst (“under U.S. Air Force Coatract F33615-06-C-0530") 
TRXTLINE tit3txt (“by RAM Laboratories, Tac.”} 
TEXTLINE titétxt ("February, 1900°) 


FEXTLINE titStxt 
{"Unreleased demcastretica of Prototype Versioca...Not for Geseral Use"} 


TEXTLIENE diafo {“Dese viewiag geaerel informetion on AZAN"} 


BUTTON diafo { 

aun rows a 

mum colums 76 

teztline diafo, 06, 2 
} 


WIEDOW introductica = { 
aum— rows is 
awa_colums 76 
tastbloak Sut rotst, 6, 1 
bettoa diafo, 14, 1, "REMOVE WINDOW" | 


) 
WINDOW iutrowindowl { 


num rows z1 
num cGolums 76 

line P i, Oo, 1, 77 

title “ASSESMMENT SYSTMM FOR ATACRAFT WOISE (ASAN) “ 
textline tititsat, 2, & 

textline tatzest, 3, 16 

teztline titstest, 4, 27 

text line titétzt, 58, 32 
teztline titstext, 7, 6 

line 8,0, 9,77 

datum Plesraem, i2, 1, 


"CALL VCAPITAL 6planraam”, 
"ADD _WIRDOW paseword 15 23°, 
"UPDATE DATUM paseword", 
“REMOVE WIRDOW", 

“CALL pwoheck*" 


WINDOW iatrowindow2 { 


au rows 9 

awn columas 78 

jiine S, 0, 3, 77 

taztline selact, 6, 3 

buttoa iat rotzt, 7,15, “ADD WINDOW introductica 3 1° 
button assescment, 8, 2, “CALL peprobet” 

buettoa housekeeping, 8,44, "CALL pedbhsek* 


} 


SsCREew firstecreen { 
titlescreen YES 


border Tus 
title °ASSESSMENY SYSTEM FOR AIRCRAFT WOISE (ASA) * 
window introwindowl, 1,1 

wiadow iutrowindew2, 13,1 


} 


BUTTON cpeeesca { 
aw rows 3 
aum columms 41 
tezt line opseascatzt, i, 3 


74 


75 


aUR_rows i 
atm columns 40 
texztlise etnewistat, © ,2 
healpfile help/setnewmis hip 
} 

BOrTCcH Selacmis { 
atm rows > | 
num colume 40 
teztline Seelacmistzt, Oo, 2 
halpfile belp/selaas.bhip 
} 


atm rows a 

mum _colvmms 30 

testline epecuummistxt, 0, 2 
healpfile help/newniss . hip 


atm rows 8 

num colums 78 

buttoa chgutr, Oo, 2, "CALL pechgatr” 
button selacmis, 2, 2, “CALL pemtrmis" 


76 


baettoa modcuratr, 4, 2, “CALL, dummy” 
bettoa specnmis, 6, 2, “ADD_WIRDOW nawnismm 13 3”, 
“UPDATE DATUM misneme", 
“CALL WEEREAMY Screen Window Detum Buttca’, 
*CALL stropy oldscreea Screen", 
"CALL peawaisa cid.arr” 


} 
WIDOW wstrasecen { 

auE rows 3 

BER _oolwmes 78 

line 2,06, 2,77 

datum mtraem, O, 2 

éotem mtrdesc, i, 2 

) 
WIDCwW strasmceni] { 

aGn_ rows 4 

awa_columas 78 

line 3,0, 3,77 

datum mtram, oO, 2 

éatwun mtrdesc, 1, 2 

datwn misnemel, 2, 2 

} 

Declarations for DEFINE/MODIFY SCREEN (defnodut recreen) 


piakabie mo 
} 
DATUM curlowalt { 
au rows i 
aw columme 29 
wariable eurliowalt, Oo, 16 
leader "Low altitude . 
helpfile healp/cerlcalt .hlp 
} 
DATUM 8 6prefixtype { 
aU—_rows i 
num _columas 13 
variable prefiztyp, 0,0 
piakable wo 
} 
DATtM cturfizxtype ( 
aum~_Tows 1 
atm columns 24 
wariable eurfixztyp, 0,11 
leader "Fix type: ° 
helpfile help/curfixtp.hip 
} 
oo Declarations for entering coordinates 


aum colums 28 
variable emtiat, O ,11 
leader "Latitude: * 
helpfile help/markmap.hilp 
} 
~ Declaratioas for show coordinates 
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ES es sop sr wet et es map er me 


aum_rows p & 
Bum oclumas a 
variable prefisdist, 0,4 
piakable pe] 
DATUM curfixzdist { 
aw rows i 
awE columns 2¢ 
variable ourfizdist, 0,16 
leader “Fiz distaace: * 


aum_ rows p 

atm columas @ 

wariable prefizred, 06,4 
piakable BO 


aun _ rows i 

Rum colums 26 

variable curtizread, 0,16 
leadax: "Fix radial . 


aum_rows 2 
uum columms 10 
variable pretizid, 0,4 


au rows i 

atm columns 16 

variable presavpt, 0,4 
pickable wo 


num rows » 

aum columes 24 

wariable carnavpt, Oo, 16 
leader “Hav. Point: = 


atm rows i 
mum _colums 40 
wariable aeuntrom, 0,7 
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TExXILINB retetreatxst {"Comtinue without selecting MFR} 
TEXETLINE retmtreatzti ("Continue without creating missica”} 
TEETLINE retetremtxt2 ("Save mission in database") 

TEXTLINE retacmis ("Goatinue without selecting missica"} 


BUTTOH retutreat { 
au Tows i 
awm_colums 40 
tartline retutreatst, Oo ,2 
bolpfile help/scaeuntr .hip 
} 


BUTTOn retutreati { 
awa _ rows a 
mum _colums 40 
textline retetreatsti, 6 , 2 
healpfile help/ncmiss .hip 
} 


BOTTOM retutrent2 { 
au rows i 
aum columns 30 
tertline retatreatzt2, 0 , 2 
helpfiie help/eaveniss .hlp 
} 


BOTTOM retnomis { 
num rows i 
atm _columas 40 
texst line retaemie, 0 , 2 
helpfile help/ascnewnis.hip 
} 


Bum rows 18 

Bum oclug 78 

taxztline quzpretzt, Oo, 16 

test line curpretzt3, a, i6 

aut curaavypt, 2, jd, °CALL VCAPTZAL écurnavpt”, 
"HEWVALS” 

datum prenavpt, 2, 26 

Gatun aurfizid, 2, 2, “CALL VCAPTTAL écurfixid’, 
*HEWVALS" 

detua prefixzid, 3, 26 

datum ourfizred, 4, i 

éaatum prefizrad, 4, 26 

detus eaurtizdist, 8, 12 

datum prefixzdist, 8, 26 

datum eatilat, 2, 38, "CALL lat2deco sent”, 
“NEWVALS” 

datums shwlat, 2, €4 

datum eatloag, 3, 38, “CALL loazdec éeat", 
“HEWVALS° 

datum shwlcag, 3, 64 

datum curfiztype, 4, 38, °CALL VCAPITAL Scurfiztyp", 
"REWVALS" 

édetu prafixtype, 4, €4 

datum aurlowalt, 7, 2, “CALL alt2des écurlownlt", 
"“NEWVALA" 

detu prelowalt, 7, 26 

datum aurhighalt, ®, 2, “CALL alt2dec tcurhighalt°, 
“SEWVALS* 

datum prekighalt, 8, 26 

datum curwidleft, ®, 2 

datum prewidleft, 9, 27 

datum curwidright, 10, 2 

datum prewidright, i0, 27 
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éotum earartac, 21, 2, °CALL VCAPITAL Gcurartcac", 


"REWVALS" 
éatun preartca, 21, 26 
button aextaavpt, 13, 2, °CALL aztetrpt’ 
} 
BUTTOn cancelwtr { 
am row 1 
aun columas 35 
tazt line cnscelatrtxt, oO, 2 
helpfile help/canclatr.hip 
} 
BUTTOR 8 saventr { 
aum rows a 
awWa_oo lve 20 
teztiine eavamtrtzt, 0, 2 
helpfile help/saventr.hilp 
) 
WIaDow smtractica { 
au rows 2 
mun_oolumms 76 
line 0,96, 0,77 
battoa saventr, i, 2, “CALL savertr* 
dbuttoa coancelatr, 1,40, "CALL aamemtr" 
} 
SCeazmm defacdatrecreen { 
title "DEFINE /MODITY MFR" 
window wtrnamocm, 2, 1 
window datacdeatr, €, 1 
window mtractica, 20, 1 
border Yzs 
} 
~ Declarsticas for SELECT ANOTEER MFR SCREEN 


aum colwees 37 
tert line shownorentrtst, 0 ,2 
helpfile help/sharetre. hip 


BUrTCH etaeustxs { 
awa_rows a 
uum columas 46 
teztline staeuntrtzt, © ,2 
helpfile help/startatr.hip 
} 


WIDOW newstrom { 


ata rows i 

num_oolumas 40 

datum neuntrum, ©, 2 
} 

WIEDOW strecalatr { 

Aum rows 4 

atm columas 78 

dbetton strewntr, 1, 2, 


“ADD _WIRDOW newntrom 6 3°, 
"UPDATE _DATUM newstrom", 
"CALL penwatra a2bv.arr” 


bettoca showncremtr, 1, 41, 
"CALL mebuach” 
text line recalintrtzt, 3, 2 
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mulbetoo, 0, 0, “CALL MPRocan dsplauit [0] .arr” 
mulbut01, 1, 0, "CALL MFRoconn dsplmalt [1] .arr” 


malbuto2, 2, 0, "CALL M¥Rocan dspinanit (2) .arz” 
malbcto}, 3, 0, “CALL MrRcoan dsplmait [3] .arr® 
mulbatod, 4, 0, “CALL MFRcoan deplmult (4) .arr” 
mnlibutoS, 5, 6, “CALL MFRocam deplault [5] .arr® 
malbutoé, 6, 0, “CALL MFRocaa depluxlt [6] .arr® 
mulbut07, 7, 0, "CALL MPRcoma deplmult [7] .arr” 
malbutos, 8, 0, “CALL MrRooma desplmult (6) arr" 
., o 


, “CALL MPRocam dsplmalt (8} .arr" 


mulbatio, 6, O, "CALL MPRocan deplmult [10] arr” 
malbetii, i, 0, "CALL MFRoona deplmult [11] .arz” 
malputi2, 2, 0, °CALL MPRocan dsplmait [12] .err” 
mulbutis, 3, 0, "CALL MFRoonn depleuit [13]. arr” 
malbutléd, 4, 0, "CALL MPRoona deplauit (14) .arr® 
mulbati5, S, 0, “CALL MFRooan deplanit [15] .arz” 
mulbetié, 6, 0, “CALL M¥Rocan dspleailt (16) .arr* 
malbuti7, T, 0, °CALL MPRoona deplauit [17] arr” 
mulbotis, 6, 0, “CALL MFRocea Geplmalt [18] .arr" 
wulbut19, 9, 0, °CALL MPRooaa dsplauilt [19] err 


retutreat, 0, 1, “CALI: melistca", 
“CALL pentrent” 


SCREEN chgcuretrecreen { 


title 


"SELECT ANOTRER MFR" 
mtrnemocm, 2, 1 
strecalntr, 5, 1 
curetrhct, 8, 3 
cummtrbhuti, 9,42 
cardat, 98, 5 
curdatl, 8,44 
retutreat, 20, 2 


Declaraticas for new wtr seme 


DATUM datepubl { 
aum rows 1 
mum_colunas 80 
variable Gatepubl, 0, 22 


leader 


"Dete of publiastica: * 


helpfile help/dstepubl .hlp 


} 


BUTTON definemtr { 


$1 


} 
Wimpon defauxtr { 
aun rows ® 
awa_ocolumas 77 
dat om orvigutr, Oo, 1 
datun schedule, 2, 2 
datum eroads, 4, 2 
daten Gatepebl, 6, 1 
button Gafinemts, §&, 1, “CALL extutrpt" 
} 
schimm mtrdefinescress§=  { 
title "MFR DEFINITIcg” 
window mt raemocn, 3,1 
wiadow Gofawertr, 7,2 
window wt-ractica, 20,1 
border Tus 
} 
* Declareticas for MISSICH REQUIREMENTS WOIDCR 
VARIABLE ac in form { 
type UTRGER. 
format 824 
lowlinit: 2 
eplimit is 
default 2 
. 
VARIABLE pwretont { 
‘foundia “VARCEAR pr pwr u.arz” 
type ernceG 
format %-€e 
} 
DATUM ~pwretunt { 
aum— rows 2 
aum_colums p C+] 
variable pweetuat, 6, 2 
leader nail bn! 
treiler iat? (h 
piakable wo 
} 
VARIABLE mistype { 
type STRivG 
format &-is 
} 
DATUM mistypel { 
aum rows b 
aum_columas 18 
veriable mistype, ©, 14 . 
leader "Missice type:° 
helpfile help/mistype .hip 
} 


variable mistype, 0, 14 
leader “Missica type: * 
pickable ad 
} 
VARIABIEZ prealtilev { 
foundin "“ALTSPEC prelowalt .spec" 
type STRING 
format. 29e 
} 
DATUM prealtiew { 
a2um rows i 
aum oolumns 10 
variable prealtiey, 0, 0 
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foundinu "ALTEPEC curlowait .spec” 
type PPRING 
format %9e 


aee rows p | 

aun _columas 21 

variable eureltiev, 0, 11 
leader "Alt: = 


type DOUBLE 
format #12 .31¢ 
lowlinit 0.0 
wplinit 4000.0 
default 100.6 


au—_ rows i 
aum colunas i2 
variable ac_pre pwr, 0, 0 
piakable wo 


type DOUBLE 
format #10 .31f 
lowlinit 6.0 
wplinit 4000.0 
default 100.0 


RU_Tows i 

aw columns 21 

variable ac_cur pwr, 0, 12 
leader “Power: as 


aUuE rows a 

aum columas > 

variable ac pre spd, 0, 0 
trailer “KrTa" 

pickable moO 


type DOPTECER 
format 834 
iowlinit 100 
uplinit 600 
default 450 


DATUM curspeed { 
Bum rows a 
num ocolmas 21 
variabie ac_ cur spd, 0, li 
epic "Speed: . 
trailer "x7" 


Baum rows i 
atm ccolumas 3 
variable premavpt, 0,0 
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) 
DATUM curmavpti { 
au rows i 
awa oolumas 21 
wariable curnavpt, Oo, 22 
ieader "Mavpoint :" 


} 


FEXTLIER ocanciperatst (“Cancel deta emtry for this missica“} 


num rows 2 

aum_columas 338 

textlize canciperetsat, 0, 2 
halpfile halp/caaciatr. hip 
} 


au rows 2 
num oolumas 30 
textliae seaveperatzt, 0, 2 
halpfile help/saveniss .hlp 


uum rows b | 

aun columas 33 

texztline operdatatrst, oO, 2 
halpfile help/emtrope .hip 


TEXTLINE curpretxti { "CURRENT PREVIOUS" } 
TREYLINE curpretxt2 ("-<------ -------- ") 
WINDOW opeatry { 

aun Tows 10 

atm columas 73 


buttca cpseasca, 7, 19, "CALL peaddops 12° 


num rows 17 

am solumas 78 

datum mistype, 0, 2 

datum acneme, 1, 2 

teztlina wtrtxt, 0,40 

taxztlize mtriahbeltxt, 2,38 

text line curpretzti, 3,14 

textline aurpretzt2, 4,14 

aatum curaavpti, 5, 1, "CALL VCAPIZAL Scurnavpt", 
"MNEWVALS" 

datum preaavpti, 5,25 

datum curspeed, 7, 2 

datum prespeed, 7,25 

éatun curpwreet, 9, 2 

datum preprreet, 9,22 

datum pYrretant, 10, is 

datum curaltlev, 12, 2, "CALL alt2dea saurlowalt”, 
"KEWVALS" 

det om prealtilev, 12,23 

box 1, 37, 14, 77 

line 3, 38, 3, 76 

line iS, 0, 18, 77 
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bettoca nextnavpt, 14, 2, “CALL axtmiept°® 


bettoca operdata, 26, 2, "NEW SCREEN ocpertry" 
bettoa eancipers, 16,406, "CALL cnsmnomis" 
teztblock mtr, 4,38 
} 
Scanam wtrflt { 
title “FLIGHT PARAMETER MTRY” 
window st rnamocm, 2,1 
window fitpera, B,i 
border TEs 
} 
SOREN cpeatry { 
title “FLIGHT OPERATION DATA EWFRT FOR MFR" 
wiadow atrasmocom, 3,1 
window opeatry, 6,1 
border TEs 
} 


SG SE A hy ED > ED DG GE A a he es ey Sn NE MD PPS GD A ihn A map ey A ND ND heen pi YS SO ED OP GE > GD iy che ben She YE ED GD GED GED 


wariable decday, 0, 5 
Leader “psc:* 
helpfile help/mathday. hip 


wariable novday, 0, 5 
leader "wov:* 
helpfile help/aathday. hip 


variable octday, 0, 8 
seeder "ocr: = 
helpfiie help/aathday . hip 


variable eepday, 0, 5 
leader “say :” 
helpfile help/anthday . hip 
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DATUM augday { * 
mum rows i 
aun columas 16 
variable augday, 0, 5 
Leen "AUG: 
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= 


= 


Baa Bo 


i i, i ee, ee ee, | 
or Oo 


—_ 
QSQauuwnwsuuwubuende nun 
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wSewehbthenaunuuvresehaawutansbh aautt &@ ad 
e 


= = ™ - = ba] = a = 


button seavepara, 13, 2, “CALL eavemis" 

battoe cenclpera, 13,40, “CALL cananis” 

} 
Oe 
- Declarations for new SELECT AIRCRAFT AMD MISSION FOR 1FR 
LIA I TE IT TS, TE I IT OT IA SIT IT TT LOIRE AB IE IE eI STI I STATI 


TEXTLINR shwacremistzxt (“Show more mission names (if any) "} 


BuUTTOn 0 6shwncremis { 


aun rows i 

num _colunas 36 

teztline shumcremistzxt, 6, 2 
helpfile help/sharmise .hip 


} 
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- ae On wa 


TEETLINE recaimis {°Recall cae of the followiag miseicas"} 


WimDow sewnisem { 


aw rows 2 

hee Colum 40 

Gotu misaame, OO, 2 
} 


buettcn shwmormnis, 1, 40, "CALL sabunch” 
textlise recealmis, 3, 2 
Gatwmm wmuldat00, a4, 4 
datum mnidatol, 5, 4 
datum muldet02, 6, 4 
datum wmuldet03, 7, 4 
datum wmuldet04, e, 4 
Gatun meldet 05, 9, 4 
Gatum maldatOé, 20, 4 
datum maldet07, ii, 4 
detum muldetOs, 22, 4 
detum wmuldet09, 13, € 
4@otwm wmuldetlo, 4,42 
datum waldetii, 8,42 
datum waldeati2, €,42 
datum wmuldeti3, 7,42 
datum wmuldetié, @,42 
Getwmm wmealdetiS, 9,42 
datum wmnildeatié¢, 10, 42 
datum smuldati7, 22, 42 
datums muldatis, 12, 42 
datum muldati9, 13, 42 


bettoa melbrtoo, 4, 2, “CALL MiSconn deplmalt [0] .arr® 
bettea mulbut0l, 5, 2, "CALL Migconn dsplault [1]. arr” 
bettca malbut62, 6, 2, “CALL MiSconn desplmult [2] .arr” 
button mualbato3, 7, 2, "CALL MISconn deplmult [3]. arr” 
button mulbut0¢é, S, 2, "CALL MigSconn dspimult [4] arr” 
buttcen mualbct0S, 9, 2, “CALL MiSconn dsplauit [5] .arr* 
battoa malbut06, 10,2, “CALL MiScoan depimult (6). arr” 
bettoa wmalbut07, ii, 2, “CALI, Migconn deplmult (7) .err* 
bettoa mulbautos, 22, 2, “CALL MIfcoan dsplanit [6] .arr® 
button wmulbsut09, 13, 2, °CALL Migconn dsplault [9] .arr* 
button wselbatio, 4,40, "CALL MYZconn dsplmalt [10] .arr" 
betten mualbctii, 5,40, “CALL MiSoonn deplmult [11] .arr” 
batton maulbuti2, 6,40, “CALL MiSconn dspleanit [12] .arr* 
bettca malbcti3, 7,40, “CALL MiSconn depleuit [13j .arr” 
bettea mulbuti4d, @,40, "CALL MIiSconan deplauit [14] .arr* 
buttoa mulbcti5, 9,40, "CALL Misooan depinalt [15] .arr* 
bettoea wmulbutis, 10,40, "CALL MIgconan dsplmuit [16] .err* 
Rettceea wsualbuti7, 11,40, “CALL MiSconn deplaxit {17} .arzr” 
betton wmulbutis, 12,40, "CALL Mi#ooan deplmalt [189] .arr* 
buttca malbctis, 13,40, "CALL Migconn depimult [19] .arr" 
bettoa retnemic, 15, 2, "CALL sslistea”, 

“CALL MEW SCREEN oldsecreana” 


TEXT2INE selmisstzt ("Select missica"} 


BUTTON selmiss { 


aW—_ rows i 

aum ocolumas 38 

textline salmisetzt, 0, 2 
helpfiie — help/selmiss .hip 


TEXTLINR fltperinftxt {"specity flight permmeter iaformatica"} 


aun rows p | 

aun_colwumas 37 

teztline fltparinftst, 0, 2 
helpfile help/fitparen.hip 


aUm_ rows is 
num oolumas 77 
datum scnamel, 1,1, “CALL vwfysamtr tid.arr" 


button selmiss, 3,2, "CALL pechgnis” 


bettoa filtperin£f, §,2, “CAL pemtrfit* 
betton retatreati, 13,2, “CALL csnanis" 


} 
SCREEN spemtrmis { 
title “SELECT AIRCRAFT AMD MISSION FOR tern“ 


wiadow satrnamocani, 3,1 
wiadow eelacaiss, 7,1 
border Yas 


} 
SCREEN chgnis { 
title °SELECY ATACRAFY AND MISSION FOR Dern” 


window mtrnemcemi, 2,1 
window cqumise, 6,2 


bordar Tus 
} 
- Declaratices for Dey-Nigkt window 
DAT aight { 
mum rows 1 
BU Golums 216 
variable aight, 6, 8 
leader "Might :* 
helpfile help/niteops .hip 
} 
Dara day { 
aum_rows 1 
uum_columas 16 
wariable day, 0, € 
leader "Day:” 
helpfile help/dayops .hip 
) 
WINDOW daynaite { 
awn _rows 12 
aum colums 77 
datum acugme, 2, 2 
testling inetr2tsxt, 3, 1 
datum day, §, 2 
datun night, 8,15 


ad Declaraticas for mission specification wiadow 


DATUM sortie { 


aum—_ rows 1 
atm columns 37 
variable ac_ in fom, 0, 35 
leader “Wumber of aircraft is formsatica: * 
helpfile help/auaform .hkip 
} 
VARIABLE misdesc { 
foundin “VARCEAR misdesca.arr” this descriptica is for mission 
type STRIBG 
format &-60s8 
} 
DATUM  wmisdeesecsi { 
awm_rows 2 
num colemae 7¢é 
wariable misdeec, 0, 7 
leader "Degcr:* 
piakable wo 
} 
DATUM miedesa { 
aum rows 1 
atm columas 76 
variabie misdees, 0, 14 
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leader "Desariptica:* 
helpfile help/misdesa.hip 
} 
Woipow mtraspocen?) { 
Bum rows 3 
nua _oclumane 78 
line 2,0, 2,77 
déatun misnemel, 96, 2 
datum misdeeai, 1, 2 
} 
WIMDOW misepes { 
aum—_Tows ié 
Ate columns 77 
datw sisdesc, i,i 
datum mistypel, 3,2 
Gatum sortie, 3,2 
button retwtrestl, 14,2, "CALL MEW SCREEN oldscreen” 
button retmtreat2, 14,47, “CALL emtermis” 


} 


SCREEN misspes { 


title “MISSION SPECIFICATICN FOR AN l@FR* 

wiadow strnascem}, 3,1 

window misepec, 6,1 

bordar TEs 

} 
01-14-88 st will try to fiz this file so it wil be caly for assesements 
~O1-14-88 et changes will be commented with dste 
=-01-16-88 st change title om first screen, change lat. loag. format loa 
- map control 
~01-17-608 «et goa’t to fix edf file ccumented with 1-17-89 
(OP te ce ee ee es ee Se ae ee Fy Re lh ES SS nk ne ce mS a et Wem oo or 


VARIABLE cocament { 
foundin “ASANWEEADR ASSESSGET . dees” 
type STRING 
format &-6ééa 
} 


DATUM ccmpent { 
aun rows 2 
aum_ columns 
variable 


pickable 


curmepnem { 
type s?PRING 
format %-30s 
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leader “Current map name: ° 
piakabile mo 

} 

WIDOW lia { 
aum_rows a 
aun cGolums 79 
tine 0, 0, 0,77 

} 

WINDOW asenamocm { 
auA_rows 3 
aun colums 78 
Gatun asseamel, 6,1 
éatun ocaoment, i, 2 
Line 2, 0, 2,77 

} 

WIEDOW asenemocmml { 
aun rows 4 
mum colums 76 
éatum aseememei, 0, 0 
datum comment, 1, 1 
Gato curmepem, 2, 1 
line 3, 0, 3,77 


aun rows i 
mum columas 31 
teztliae probdefl1, 0, 2 


awn rows i 
mum GColwnas 15 
teztline analysis, oO, 2 


TEXETLINE reportgen { “MAKE A REPORT" } 


BUTTON repertgen § { 
am rows 1 
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FEXTLINE vwohklistxt { “VIEW CHECKLIST FOR CURRENT ASSESMaENT” } 


BUTTOR wwahklist { 
num rows 1 


- Declaraticas for majcoractica footers 


WIDOW majoractica { 


De Ne at a a a ek A A Se Se A ale ee Ae ne a ey Se eh i ce ie Mn A ls 


~heades for problem status screen 


aum rows 4 
n@_columas 78 
line 0, 0, 0,77 
title “Alternative scticas you can now take:” 
baettoa probdef, 2, 2, "MEW SCREEN probdefsecreen" 
buttoa analyeis, 2,56, "MEW SCREEN analysiecreen” 
buettoa wwebkiist, 3, 2, °MEW_SCREEN viewcheaklistecreen” 
buttoa reportges, 3,56, “CALL dummy2” 

) 

WIRDOW majcoractical { ~heeder for problem definitica scresa 
au rows 4 
aua_columas 78 
line 6, 0, 0,77 
title "Alternative acticas you aan now take: *“ 
bettoa analysis, 2, 2, “NEW SCREEN analysiscreen“ 
bettoca predetat2z, 2,48, "CALI, peprobst” 
bettoca wwebkilist, 3, 2, “KEW _SCREEW viewohecklisteareca" 
button reportgen, 3,46, "CALL dummy?” 

} 

WImbow wmajcractica2 { ~heeder for data analysis screen 
aum—_ rows 4 
atm columas 78 
line 6, 6, 0,77 
title “Alternative acticas you cen now take:” 
buttoca probdefi, 2, 2, "MEW SCREEN probdefecreen" 
bettoa reportges, 2,47, "CALL, dummy2° 
duttoa vwohklist, 3, 2, "MEW _SCREEN viewoheaklicstscreen" 
buttca probetat2, 3,47, "CALL peprobst”* 

} 

WINDOW majoracticas { ~w~header for report generatica screen 
awa_rows 4 
uum columns 78 
liae 0, 0, 0,77 
title “Alternative actions you can now take:" 
buttoca vwohklist, 2, 2, “KEW SCREEN viewcohacklistscreen” 
button prodetat2, 2,47, "CALL peprobet" 
buttoa preobdefi, 3, 2, "KEW SCREEN prebdefscreen" 
battoa analysis, 3,47, “NEW SCREEN analysiecreen” 


aum—_ rows 4 

aun colume 78 

line 0, 0, 0,77 
title "Alternative 
buttoa probetat2, 
battca reportgen, 
buttoa prebdefi, 
bettoa analysis, 


~header for view checklist screen 


TEXTLINE lcoedglobal {°LOAD LOCAL DATA FOR GENERAL ACCESS" } 


BUTTON loadglobel { 
nU—_rows a 
num _columms 39 


text line loadglobal, 0, 2 
helpfile help/loadgleb. hip 


) 
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line oO, 0, 0,77 

title "Alternative acticas you can now take:* 
bettoa loadgliebel, 2, 2, "CALL Gummy” 

betton assesement, 3, 2, CALL peprobet" 


oe ee ee ee a ee SF Sie ale a > se A i DS Shep GD mite me ae lk SP PS ee Se ee ee a 


} 
WIDOW probstat { 

BU— rows 5 
uum Golumms 78 
Gat us etartdate, 90, 2 
datum iastdate, 2, 2 
datun planriast, 4, 2 

} 


TEXTLINZ chgesstxt {“Werk ca a different assecoment.” } 


aurrTom chguss { ~1-16-88 
awn rows i ~1-1¢6-¢68 
num columms 70 1-16-66 


teztline chgesstxt, ©, 2 “1-16-08 
helpfile help/probdag .hip “1-16-08 


Wipow cabgussess { “change to different assessment 
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- Declareticas for BNVIROMMENTAL ASSESSMENT DEFINITION SCREEN 


LLL LL ee ee ee ee eee ee Eee eee eee eee 


TEILINR mpodmoatxt ("Work with MOA iaformatica (number or type of aircraft, missicas, eta.)"} 


BUTTON modmoa { 


2 


aum _colwumms 7¢€ 


teztlinea 


halpfile 
} 


modmoetzt, 0 ,2 
help/moawork . hip 


TEXTLINE modutrtxt (“Work with MFR iuformation (nusber or type of aircraft, missions, eta.) *} 


BUTTON modmatr { 


» § 


Bem columas 7¢ 


teztline 


halpfile 
) 


modatrtxt, 0 ,2 
healp/atrwork. hip 


TEXTLINE modmaptzxt ("Work with map isformatice (designate land uses, update mape) “) 


BUTTON modmap = { 


2 


aum_columms 76 
taztiins | 


modmaptzt, 6 ,2 


helpfile elp/mapwork.hlp 


} 


TEXTLINE selectzt {"Acticas you can now take to add informatica to this assecument :*} 


WINDOW selacticn { 


aun _ columns 77 


tartline 


} 


7 


modatr, 4, 1, "CALD pemtrent* 
modnce, 6, 1, "CALL dummy” 


SCREEN probdefsecreen { 


title 


"ENVIROMENTAL ASSESSMENT DEF INT'T ICN" 
asenssoem, 3,1 
selaction, 7, 2 


window majecractical, 18 , i 


y 
f 
: 


ES ee ee ee Se a a te ey ll Sl le ee ee i 


TEXTLINZ eatuppir 
{“Znter upper-left corner coordinates of area of current interest” } Z 


TEXTLINE entlowrt : 
("Enter lower right corner coordinates of area of current iaterest"} 


DATUM ehwilat2 { 
au rows b 
num columas 25 
variabla ehwiat, 0 ,11 


leader 


"Latitude: *” 


helpfile belp/combmap.hip 
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detun entlat, 3, 2, "CALL lat2des sent", *HEWVALS* 
2 


dot om eatloag, , 36, "CALL loa2dec sent", "NEWVALS" 
textliae entlowst, 5, 2 
éatum shwilat2, 6, i, “CALL lat2deca éehow", "REWVALS" 
Gaxt-am, shwlong2, 6, 38, “CALL loa2des éshow’, “NENVALS" 
} 
o~ Declaraticas for DATA ANALYSIS SCREEN 


textline gecdatingtzt, 0 ,2 
helpfile help/gecing. hip 
} 


TEXTLINE campaciseftzt {“Gampere acise effects"} «1-17-88 


BUTTOH occmpncise£f { ~1~-17-88 
aum_xrows i ~1-17-88 
awa _colusas 76 “1-17-88 
taztline ocmpaciseftzst, 0 ,2 -1-17-60 
helpfile help/ocmpacis .hip ~2-06-88 
} “1~17-88 


TEXTLINE ocalcaciseftst {"Caloulate noise effects in specified area"} 


worrem calcsoisef { 

awm—_Tows i 

mua_columme 76 

teztline onlcnoisaftxt, © ,2 
helpfile help/effcalc.hip 

} . 


TEXTLINR calcncisesptzt ("Calculate acise exposure ia epeaified area”) 


BUTTON ealcacisazp { 
auwa_rows pF 
num columms 76 
taxztline calcnotsexzptzt, 0 ,2 
helpfile halp/exzpoalsa.hip 
} 


TEXTLINE cmlogklcocktzt (“Calculate quicklook (point) exposure estimate”) 
BUTTOM calogklook { 


aum—_ rows 1 

mum_columas 50 

textline enlogklooktxt, Oo ,2 
helpfite help/qeklook . hip 


BUTTOM emtccoor { 

aw rows a 

awa_columas 40 

test line entoccortst, 0 ,2 
; helpfile help/kbdntry.hip 


TEXTLINE usemaptxt (“Use map screen"} 


SUTTOM «usemep { 
aun rows p 
mama _ columas 30 taertline usemaptxt, 0 ,2 
helpfile help/usemap .hip 

} 


TEEPLINE selectanatxt ("Actions you can acw take to enalyre environmental assessment data: *} 


TEXTLINZ defgecereat.zt {"Specify a gecgraphic area of interest :") 


WIMpOow datanaction { 
aU rows 21 
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teztline selectenatzst, oO, 2 

bettca calogklook, 2, 2, “CALL dummy” 

buttoca oalcacisezp, 3, 2, "CALL, dummy” 

bettoca oalcnoisef, 4, 2, °CAL dummy” 

betton compacisef, 5, 2, “CALL dummy” 

battoa qeodating, 6, 2, °CALL cumy* 

testlize dafgecereatzt, 8, 2 

dbattoa usemeap, 9, 2, “CALL dummy2* 

»etton emtacor, 10,2, °ADD_WINDOW emtacer § 1” 


} 


SCREEN analysiscreen { 
title “DATA ANALYSIS° 
window assnamocnm, 2,1 
wisdew datenactica, 6,1 
window majorecticaz, 18 , 1 
berder YES 

} 


PEXTL OE shownoretzt ("Show more assessmente (if any)”} 


textline showncretzt, 0 ,2 
helpfile help/getassesnt .hip 
} 


FTEXTLINE recallassetst ("Recall ome of the following assecoments :”} 
TEXTLINZ staewasetxt (“Start a new asseeomaent"} 


poTTOe etaewase { 


awa rows 2 
num oolumes ze 
textline stuewasstzt, oO ,2 
halpfile help/newasemat .hip 


au— tows 1 

aw oolunas 46 

wariable aewashan, °o,7 
leader "Meme: " 

helpfile heip/staewase .hip 


atm rows iz 
num columas 40 
datun newasom, 06,1 


AWA rows i 

awa columas 78 

bettoa stanewass, ©, 2, “ADD WIEDOW newasnam, 6 3°, 
“UPDATE DATUM newasnam”, 
"CALL penwasen a2bv.arr’ 

bettoa shownore, 0, 41, "CALL ubunch” 


uun_rows 2 
awn columns 78 
tert line secallasstxt, 0, 2 


“CALL ASANconn deplmult [6]. arr” 
“CALL AZANcoan dsplault [1] .arr” 
"CALL ASAMNconn depimult [2] .arr" 
"CALL ASZANoonns deplanit [3] .arr® 
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button mulbetO0é, £, 0, "CALL AZANocan deplault [4] .arr” 
betton wmaulbutO0S, 58, 0, “CALL ASANcoan deplimult [5] . arr” 
betton mnulbutO¢, 6, 6, "CALL ASANocan depimult [6] .arr" 
dutton wmulbut07, 7, 0, "CALL ASANocan deplmalt [7] .arrc* 
bettomn wmalbut0s, 8, 0, “CALL ASANcoan deplnult [¢@) .arz” 
button wmalbet0s, 98, 0, "CALL ASANcoean deplmalt [9] .arr* 


button wmealbuti0, 0, 0, "CALL ASANocaa deplmult [10] err“ 
bettoa mulbutli, 1, 0, "CALL ASANoona depleult [11] .arx” 
bettom mulbuti2, 2, 0, "CALL ASANcona dsplenlt (12) .arr” 
button mulbet13, 3, 0, "CALL ASANcomn deplauit [13] arr” 
button malbutié, 6, 0, "CALL ASANooan deplwult [14] .arz* 
betten mulbutiS, 5, 0, "CALL ASANoona deplmult [15] .arr” 
buttom mulbutis, 6, 0, "CALL ASANoonn deplmult [16] .arz” 
bettcea mulbutl17, 7, 0, “CALL ASANcoan dsplmult (17) .arz” 
button malbutls, 8, 0, "CALL ASANconn desplauit [18] .arr” 
betton malbuti9, 98, 0, "CALL ASANcoaa depluslt [19] .arr® 


TEXTLINE retncess (“Ccootiaue without selecting assesment” } 


au tows 2 
aun _columms 40 
taztlinae retncass, 0 ,2 
helpfile help/ncassess . hip 
} 
WINDOW retwoass { 
au rows 1 
aw columas 76 
buttoa retasseat, 0,1, "CALL ulista”’, "CALL peprobet” ¥ 
} 
SCREW chgcurasscreen { 
title "SELECT ANCTEER ASSESS?“ 
wiadow assammocm, 2,1 
window wtnewases, 6,23 ~ 
window recalase, 8,1 
window curasehbut, 98,3 
window curassabeti, 9, 42 
wiadow curdat, 9,3 
wiadow eurdati, 9,46 
window retwoass, 20,2 
border Tus 
} 
- Declaraticas for NEW ASSESSMENT DEFINTICN 


VARIABLE emtdeecl { 
foandia “VARCEARCO emtdeec(0]} .arr” 
type #sFTRING 
format 8-608 
} 


DATUM entdescl { 
atm rows 1 
num colums 4s 
variable emtdesci, 0 ,0 
heipfiie help/entdesa. hip 
} 


VARIABLE entdesc? { 
foundin “VARCEAREO entdeec[1] .arr® 
type STRING 
fomeat %-60e 
} 


DATUM entdesc2 { 
atm rows 2 
num _ columns 78 
variable entdescac2, 0 ,0 
Belpfile help/eatdesa.hip 
} 


VARIABLE entdess3 { 


fouadin "VARCEARCO entdess [2] .arr” 
type STRING 
format 8-608 


wariable enatdesa3, 0 ,0 
helpfile help/eatdasc.hip 
) 


VARIABLE entdesa4 { 
fouadia “VARCEARCO eatdesc [3] .arr” 
type STRING 
format &-600 

} 


DATUM entdesc4 { 
num rows i 
num _colums 75 
variabie entdescé, 6 ,0 
helpfiie thelp/eatdesc.hip 
} 


TEXTLIENE emtdesctxt (“Please eater a brief deecriptica for this assesement"} 


DATUM newasena { 
atm rows pF 


num columns 77 
variable newasnam, © , 35 
leader "Meme of new assecement definznitica:*° 
pickable' wo 
} 

WINDOW newnsdess§ { 
au rows 9 
mum columas 70 
éetum newessamm, i1,3 
test line emtdesctzt, 3,4 
datum eatdesal, 4,4 a 
detun entdeec2, 5,4 
éatun eatdesct, €,4 
datum eatdeecs4, 7,4 
border Yzs 
} 

- Declarations for database howsekeeping screen 


TEXTLINR ssetabletxt2 {Print list of all columns in an assessment’ s tables"} 


BOTTON asestable2 { 
sum rows 2 
aun columns 55 
tazt line asetabletszt2, 0 ,2 
helpfile help/asstable.hlp 
} 


T2XoLINE asstabletsti {°Print list of as assesment’ s tables"} 
aorTrorw asetablei { 

aw rows 2 

awa_columns 50 


test line asstabletxzti, 0 ,2 
helpfile help/asetable.hip 
} 


FEXTLINE assesstxt ("Print list of all assesements”} 


BUrTTOon assess { 
aun rows i 
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TEXTLINN dbheekpgtzt (°WAKWING: Acticas you take om this screen affect 
ASAN’ S permaneat. databases i*} 


WINDOW  dbhsexpgactica { 


BUu—_rows i3 

amm columns 78 

line 0,o, 0,77 

texztline dbheekpgtzt, 2,2 

bettoa abdate, 4,2, °CARL dummy” 
buttoa aesess, 6,2, "CALL prataba”" 
buttoca asetablel, 6,2, “CALL SUpropt i* 
buttoa aestable2, 10,2, "CALL SUpropt 2° 
buttoa updeteiafo, 12,2, "CALL dummy" 


betton mulbat00, 6, 6, "CALL SUprint dspimult [(0} . arr” 
betton walbut0l1, 1, 0, “CALL SOprint depiacait [1] .arr* 
buttca mulbat02, 2, 0, "CALL SUprint depimait [2] .arz” 
battoe mulbut03, 3, 0, "CALL SUprint dspinnilt (3) arr” 
button mulbut04, 4, 0, “CALL SUprint depimalt [4] .acr" 
button malbutO5, 5, 0, “CALL #Upriat deplmuit [35) .arr” 
bettom mulbuto6, 6, 6, “CALL #Uprist depimult [6] .arr” 
batten mulbut07, 7, 0, "CALL SUprint deplieait [7] .arr° 
bettom mulbut08, 8, 0, “CAL, SUprint dsplmult [9] . arr” 
button mulbut0s, 9, 0, “CALL SUpriat depleult[9) .arr” 


°CALL SUprint dsplmult [10] . arr” 
"CALL SUprint depimalt [11] .arr* 
"CALL SUprint deplmuit [12] .arr* 
"CALL SUprint depimult [13] . arr” 
“CALL SUprint deplaait (14) .arr” 
“CALL SUprint depimult [iS] .arr° 
"CALL SUprint dsplwclt [16] .arr" 
"CALL SUprint dsplauit [17} .arr” 
“CALL SUprint depinnlt (18) . arr” 
"CALL SUprint deplenit [19] .acr" 


= 
i] 


= ba] = 7 = 
ial a = ” ~~ = 


-= 
- 


ey 

- 
wenauabunuwoa 
eesesaoaonagoS 


= 
ba] 


} 


TEXTLINE auselect (“Print list of SUPERUSER’s tables” } 
TEXTLINE hbqvelect {"Print list of ERADQUARTERS’ tablee*} 
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. WINDOW retwopra { 


num rows i 

aun coluses 76 

bettean retasseat, 6,1, “CALL ulista", "MEW _SCREEN dbhsekpgecreen” 

} “ 
WINDOW hasuseliect { 

au rows 3 7 

aw columms 7¢ 

bettce bqselect, 0,1, “CALL SUpropt 3° 

betton suselecst, 2,1, “CALL SUpropt 4° 

} 


title “SELECT ASSESMEENT FOR DATABASE PRINTOUT” 
window hqwuselect, 4,1 
wisdow recelass, 8,i 
window quickassbut, 9,3 
window quickassbuti, 9, 42 
window ourdat, 9,8 
window curdati, 9,44 
window retwopra, 20,2 
bordar TEs 
} 
~ Declarations for view CEECK-LIST SCREEN , 


SUTTon eotherchklst { : 
au rows 2 
num ocolumas 23 
testline otherchkist, ©, 2 
helpfile help/cthrchk .hlp 
} 
TEXTSIOCK foasi2 { 
filename txtbix/fonei2 .txzt. 
au rows 10 
aum columns 7¢ 
border TEs 
} 
WIDOW fousi2 { 
aw rows i3 
aga oolumns 7@ 
textbicak fousi2, 0,1 
bettoa otherchkist, 12,2, “REMOVE WOREDOR" 
; ) 
TEXTBLCCK fousil { . 
filename txtbik/foueii .txt 
au tows 10 
ata solwmmas 76 
border Yus . 
} 
WINDOW foasil { 
aun rows 13 
aun columns 78 
textbleak foasil, 6,1 
bettoa otharchkist, 12,2, “REMOVE WIEDon 
} 
TEXTEIOCK catex3 { 
filenosme tztblx/aater3 .tzt 
num rows 10 
num columas 7¢ 
border Yus 
) 
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au rows i3 

aum_columas 78 

taxmbicak eates3, 0,1 

bettoa otherchkist, 12,2, “REMOVE _WIMNDON™ 


fi lense tztbik/ostex2 .tzxt 
awa rows 10 

auwm_colwems 76 

border Yas 


awe rows is 

aun _columas 78 

taztblock oatez2, 0,1 

bettoa otherchklst, 12,2, ‘REMOVE WINDOW’ 


filename txtblk/catexl .txt 
atm rows 10 

uum columns 7¢€ 

border be! | 


num rows 13 

aw columns 78 

taxtbloak eateri, 0,1 

bettom otherchkist, 12,2, ‘REMOVE _WINDOR™ 


TEXTLINE fomsiztzt { 
"Show documentation necessary for findiag of ac significant impact") 


BUTTON fousi2z { 
au rows a 
aun oolunas 72 
tazxt line fomsittst, 0, 2 
helpfile help/fonsi2 hip 
} 


TEETLIME fonsiltzxt { 
“Show MWEPA bases for finding of no eignificant impact (FOmsrT) “} 


Bo rrCs fomsii { 
aw rows i 
atm o¢lums« 65 
text line fonsiltzt, 6, 2 
helpfile help/foasii.hip 
) 


TRXTLIAR catexzdtxt ("Show documsatetion needed for categorical exalusicas") 


Burro catex3 { 
aw rows a 
aum_columas 535 
teztline eatexStzt, 6, 2 
helpfile help/catex3 .hip 
} 


PEXTLINE ocatex?txt { 
“Show examples of proposed acticns qualifying for categorical exalusicas®"} 


TEXILIER ceateritxt (“Show NEPA bases for categorical exclusicas (CATEX)”)} 
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auE_Tows ii 

aum _ocolumas 78 

lise 0,o , 0,77 

bettoca ostari, 2,2, “ADD _WIRDOW catezri 3 1° 
bettoa exter? , 4,2, "ADD _ WINDOW catex2 3 i” 
bettoa outaz3, €,2, "ADD_WINDOW catex3 3 1° 
buttoa foneil, — @,2, “ADO WINDOW fonsil 3 1° 
bettca foasi2, 10,2, "ADO WINDOW foasi2 3 i" 
} 

SCREEN viewchecklistscrean { 
title "VIEW CEECELIST" 
window weohklist, 2,1 


TEXILINE viewnoisetzt (“View tart ca calculated soise effects for curreat assesment”) 


BUTTCH viewnoisetz { 
aum_rows 2 
num columas 72 
textline viewnoisetzt, 0 ,2 
helpfile help/viewtext .hlp 
} 


TEXTLINE viewbplatetst (“View boilarplate"} 


textiine  viewbplatetzxt, 0 ,2 
helpfile help/roledex.hip 
} 


TEXTLINE prnciseubptzt ("Print above tert with assscciated boilerplate" } 


BUTTON praciseubp { 
Bum rows pf 
uum columms 72 
taxztline prnciseubptzt, o ,2 
halpfiie help/rolodaz.hip 
} 


TEXTLIAR prncisetzxt {"Print sbove tart") 


BUTTON 8 prncisetx { 
au—_ rows a 
nwmma_columas 72 
textline pracieetzt, 6 ,2 
halpfile help/creatzxt .hip 
} 
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aum_rows 2 
am _ columns 72 
taztlise , oO ,2 
helpfile help/creatzt .hip 


awn_rows 15 
aun columes 77 
lise 0, 1, 9, 76 
textline selectreptzt, 6, 1 
buttoca etdreprt, 6, 1, "CALL oallept” 
bettoa viewncisetz, 8, 1, “CALL dummy” 
button pracisetz, 20, 1, “CALL oalixpt3s” 
bettoa prnciseubp, 12, 1, “CALL onlirpté* 
buettca viewbplate, 14,1, °HEW_SCREEN bpleterevecreen” 
} . 
SCREEN reportgenscreen { 
title "MAKER A REPORT” 
maiascreen TES 
window reportectica, 2, 1 
border vze 
} 
- Declaraticas for boilerplate review screen 


awa_rows 
am colwmas 30 
texztlisab eotherbplatetst, oO, 2 
helpfile help/birplate.hip 
} 
TEXTRLOCK hearden { 
fi lLememe birpit /hriagdag.bpl 
num rows 10 
Bum oolums 76 
border Yas 
} 
WIEDow hearden { 
aw rowe 13 
au columas 8 
taxztbloak heardsn, 0,2 
button otharbplate, 12,2, “REMOVE WINDOR" 
} 


SEXTLINE heardemtxt (“Searing damage risk"} 


num rows 1 
aus oolweas 35 
tertline beardemtst, ©, 2 
oor help/birzplate. hip 
FERTRLOCK structdem { 
filename blirpit/stretdag.bpi 
auB rows 20 
num _colums 7¢ 
border Tus 
} 
WODOn structdam { 
aun _rows i3 
aum columas 78 
taxtblock structdam, 0,1 
buttoca otherbplate, 12,2, “REMOVE WINDOW" 
) 
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awa_rows 2 
sum columas 35 
taztlise etructdamtrt, oo, 2 
halpfile heip/birplate.hip 
} 

TEETELOCK actiatfer { 
£1 Leneme birplt/elpiat?¢ .bpl 
aw tows 10 
num colums 76 
border Tus 


amma rows i3 

Bw columEes 78 

taztbliock actintfer, 0,1 

buttoca otherbplate, 12,2, "REMOVE WINDOR” 


SRETLINE ectintfertzxt ("Activity iaterference"} 


BOTTOM actiatfer { 


au rows pF 
Bum oolums 38 
tertline actintfertzxt, 0, 2 
helpfile halp/birplate.hip 
} 

TEZTBIOCK wildlife { 
filename birpit/wildlite .bpl 
aum_rows 10 
aus _ columns 7¢ 
border Tus 


WIDOW wildlife { 


aw_rows ‘13 

awa ocolumme 78 

taztbiock wiidlife, 0,2 

buttoa ctharhplate, 12,2, *RIBOVE_WIRDOW” 


TEXTLINE wildiifetst (°Wildlife”) 


awm_rows i 

awn columas 35 

texrtline wildlifetzt, 0, 2 
helpfile help/birplate.hip 


filename blrpit/spchint? .bpl 
num rows 10 

num columns 7¢ 

border TEs 


atm rows i 

aun oo lwmms 38 

texztline ocmintfertxt, 0, 2 
healpfile help/birplate.hip 


filename birplt/livastck .bpl 
aun rows 10 

mum columns 76 

border Yus 
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emaoytst, 0, 2 


TEXTLINR bplatetst (“Select one of the following to view available 
noise effects boilerplate: "} 


TEXTLINR returarpt {“Retura to report selection sarean"} 


BUTTON returarpt 
atm rows 1 
num columns 


{ 


42 


textline returarpt, 0, 2 
helpfile help/ncohelp .tzxt 


) 


WIRDCOW aulitast 
awa rows 3 
awe_columas 7 
buttoa ret 
} 


{ 


7 


urarpt, 1, 1, “NEW_ SCREEN reportgeascareen” 


"ADD WINDOW aamoy 3 i* 

“ADD WINDOW comiatfer 3 1° 
"ADO WINDOW actiatfer 3 1" 
"ADD _WIRDOW heardam 3 1° 

"ADD _ WINDOW livestock 3 1° 
“ADD _WIMDOW wildlife 3 1" 
"ADD WINDOW etructdam 3 i° 
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A.4 Screen Description File for Graphic Portion of ASAN 


INCLUDE STATEMENT FOR TEE ASAN & GRAPHICS typedef DEFINITIONS NEEDED FO 
- COMPILE USURS.C WITHOUT INCURRING THRE WRATH OF THRE CCOMPITLER 


EEE Se re ee ap a may a em GG SD ee a 


a me SREP GN SEES YE ig AI A ee inher ay eh ee iy Dom Wy Oh les ens mr iy ke a me emer em a gg Oy ee EO 

ee ee ee Gr ee a ee ea a em ne ee ee te a ei tess eee ee a ee 
. 

PP EP PEP CEP A ES ES ED ae PS OD cee RD EF GP cs AD a DP EP a MP Gd A AR OO Ce oe ee PT OP ES OE et OE OED eh at i ae ap a a oD om 


tad Date etructures for holding list of map nemes “ 


type erRIwa 
format %-6s 

} 

DATUM dinand { 
mua rows 2 


pickable Ps) 
} 
VARIABLE dingm[1] { 
type rnc 
format. 2-88 


type Foy bo | 
format &-8e 

} 

DATUM dingm? { 
num rows b & 


} 
VARIABLE dinam[S] ( 
type STRING 
format &~-8a 
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pickabie wo 
} 

VARIABLE dinan [6] { 
type FPR ows 
format &-6s 

} 
DATUM dinmamé { 
au rows i 


} 
VARIARIZ dlnem[(6j { 
type sTRima 
format 8-68 


} 
VARIABLE dinam[10] { 
type eTRIWG 
format &-6e6 


variable dingm[i0] , 0, 0 
pickable mo 


VARIABLE dlaam[iij { 

type STRING 
format &-8e 

} 

DATUM dinmemii { 
atm rows 1 
aum_columas 8 
variabla @Qingm[il} , 0 , 0 
piakable bo) 

} 


VARIABIE dinem{i2} { 

type sTRING 
format. %-8s 

} 

DATUM dinami2 { 
num rows p | 
aum_columns 6 
variable dinam({i2z}] , o , 9° 
piokable wo 
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type oranrmese 
format. &~-8e 
} 
DATUM dinemi3 { 
num rows i 
mum columme & 
variable dingm[i3}] , 0, 0 
picrable wo * 
} 
VARIABLE dinem(i4) { 
type erTaiIne 
format &-6s 


} 
ons Decalaratioa for eateriag coordinates 
VARIABLE entiat { ~ COMRENT or ENTER Sat 
fovadin "COORDINATE eat .lat* 
type wrRINa 
format &~-13e8 


aun columas 28 . 
vwaeriabie eatliat, 0 ,11 
iaader "Letitudea: *° ; 


aum columns 28 
wariable emtloag, 0 ,11 
leader *Loegitude:” 
helpfile help/ocmbmap.hip 
} 
on Declaration for show coordinates 


type erring 
format &-130 

} 

DATUM ehwilat { 
awn_rows i : 
aun_oolwmms 28 
variable shwist, 0 ,ii 
leader "Latitude: ° 


type #TRING 
format &-13e 


DATUM shwicag { 
au rows 1 
atm colums 28 
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} 

VARIABLE shwdist { 
type DOUBLE 
wplimit 10000. 
lowlinit 0 
format *£10.21¢ 


aum_columas 13 
wariabie shwdist, 0 , 90 
pickable 0 

traiiar “km” 


Pe en ee 8. 0 Fe Oe le ee rl le i a ee Ee ls et ee ed ee ee ee i et 


OF Se ee Oe & & 68 @& 0 Fe oe ee ee ie en ee i in le el le a ln i ee a 


) 
DATUM eassemamel { 
num rows a 
awm colums 78 
variable assenamea, 0 , 30 
leader "Name of curreat assesement: ° 
piokable be] 


} 
DATUM ccument { 
num rows 2 
num colums 77 
variable comment, 9 , 10 
piakable wo 
} 
Wmpow lin { 
aum rows bE 
uum columas 78 
dine 0, 0, 90,77 
} 
WOmOW sassaemccee§ { 
awa rows 3 
awm_oolumas 70 
datus essenamel, 0,0 
datum ocmenat, 1, 1 
line 2, 0, 2,77 


auA_ rows p 
num colums 35 
taxtliine probsta, Oo, 2 


TEXTLINE prebetal ({ "WORK CH ANOTHER ASSESMEEWT" } 
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aum rows a 

awn colwmes 15 

textlise analysis, Oo, 2 
helpfiie help/datenal .hip 


atE_rows Z 
au columas 26 
teztiliine Gatabaseiag, oO, 1 
helpfile help/making. hip 
} 

- Declaraticas for majoraction footers 

WINDOW majoracticn { ~header for problem status screen 
awa rows 4 
num columns 78 
dine 0, 9, 0,77 
title "Please select cane of the followiag acticns:” 
buttoa probdef, 2, 0, “CALL chummy” 
batton analysis, 2,43, °CALL dummy" 
button reportgen, 2,62, “CALL dummy" 
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bettca vwohklist, 3, 0, "CALL cmmmy* 
betton databeseing, 3,52, “CALI dummy” 
} 
WIEDOW majcoracticas§ { header for report generatica screen 
aUuE_rows 4 
atm _ocolums 78 
sine oO, Oo, 0,77 
title "Alternative ecticas you ann sow take:* 
button probetat2, 2, 0, "CALL chummy” 
buttoa probdefi, 2,29, "CALL duamy” 
bettoa wwehkilist, 3, 0, °CALL cumay* 
bettca databeseing, 3,52, "CALL dummy” 
} 
~ Declaratioas for MAP COSFFROL 


) 


" (4B) <= PSF <=" 
halpfile help/achelp.hip 


VARIABLE shwareaPSsri = { 
type  UOFrscER 
&-5d 


format. 


} 


124 
75 


DATUM ehwerearPsri { 


au— rows 
aus columns 


a 


is 


variable shwarearsri, 0 ,0 


trailer 


“ (amjp° 
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helpfile haip/achelp.hip 
} 


TEETLINE entidptofint {“Mark the map at:”} 
TEETLINN ehwidptofiat "Locate touched poiat”’} 


BOTTOM shwidptofist { 
auA_ rows 2 
num columns 22 
taztlise ehwidptofint, ° ,2 
helipfile help/sckhelp.bip 
} 


FEXTLIM2 shwdist {“Show distance between two touched poiats:”} 


} 


TExvTL Te addelmapinfo ("Add or Delete information om a map layer"} 


Burro 8 sddelmapiafo ({ 
awa rows » | 
aun_oolums|s 77 
textline addelmapianfo, 0, 2 
helpfile help/addelmap.hip 
} 


TEXTLIMEZ showlegesd { “Show the legend” } 


BUTTOn showlegend { 
aum_rows pF 
awa columns i7 
textlinea showlegend, ©, 2 
helpfile help/achelp.hip 


TEXTLIWE erasedisplay { “Srase the map display” } 


BOTTOM erasedisplay { “ 
sum rows p | 
aum columas TT 
taztline erasedisplay, ©, 2 
halpfile help/nobelp .hip m 
, 


TEXTLINE editccolors { “Edit the color assigumesnts" } 
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ine 


DATUM 8 6layersavename { 
amroew 1 
aun _ columns 77 
wariable ilayersevenae, 0 , 35 
leader “Save the displayed map as:° 
heipfile help/savenaep.hip 


au—_ rows a 
aum_colums 27 

leader ~ "Whew (* 
trailer 5: 
variable vpasme, 0 , 7 
pickabie be] 


} 
TEXTLINE wwic { "Selis.c™ } 


oe | 
awa rows i 
atm oolumas S 
textline wws, 06, 2 
} 


PREILINE vwwima { “Ajo.M* } 


pOrTcH vwimea { 
au rows ps 
aun columas 7 
textiine vem, OO, 2 
} 


TEXTLINE vwwims { “Sells.M’ } 


BUTTON 0 vwime { 
au—_rows 2 
nei oOlums ® 
tertline vwme, oO, 2 
} 


TEEILINE ww fa { "“Ajo.F° } 


mvrTroHn =o wwesfa { 
aum—_ rows 1 
awa columns 7 
textline vw fa, 6, 2 


au— rows 13 

atm columns 78 

det um vposme, o, 1 

betton ww _a, Oo, 21, “CGAL new view ‘Sellis.c’* 
bettoa vw _ma, 0, 33, “CALL new view ‘Ajo.M’" 
button vw ms, 0, 43, “CALL mew view ‘Sells.m’" 
button vw_fa, 0, 33, "CALL new _ view 'Ajo.¥F’“ 
battoa ve _fe, 0, 65, "CALL new view 'Sells.F’" 
button addelmap, i, 1, “°REW_SCREEW mepman” 


buttoa erasedisplay, 4, 1, °CALL clear_screen" 

taxtline eatidptofint, S$, 3 

datum eatilat, 5, 21, "CALL lat2dec seat" "REWVALS”" 
datum entloag, 3, 48, "CALL lon2?des tent” "MEWVALS" 
dattoa editooiors, 6, 1, "CALL edit colors” 

batton shwidptofint, 7, 1, "CALL show _ccorde” 

datum shwlat, 7, 28 
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Gack waa shvlcag, T, 
batten shwdist, 8, 
Gat um, ehwdist, 8, 


title "MAP DISPLAY CONTROL’ 
mainscreen Yas ono PAEE FAKE FAKE FAKE 
window assnencen, 2,1 
window mapctriactioa, 58,1 
wiadow _— sajoracticas, is,2 
border TEs 
} 
- Declaratica for MAP MANAGER 
DArUM 86 carview { 
aum_rows i 
awe columns 22 
leader "CURRENT VIEW:" 
variabis vwpamme, 0 , 14 
pickable wo 


} 


TEXTLINZ iayertzt tit { “AVATLARLE MAP LAYERS:" } 


TEXTBIOCE layertxt { 


aun rows 12 
num columns L. > | 
border YRS 


filename iayere .txt 
} 


FEXTLINE layernow tit { "NOW DISPLAYED:” } 


Wrmpow iayertzt { 


aum_ rows 14 
awn columas 51 
éatun curview , 0 


? 


textline iayertzxt tit , 
text line layersow tit , 


0 


taztbicek iayertzt , 2, 
} 
WINDOW layeracow { 
num rows 17 
num columas 10 
border be 2 | 
datum dinm® , 1, 
datum dinemit , 2, 
dart cam disem2 , 3, 
datum dinm3 , 4, 
datum dinesm4é Fa 5 r 
datum dinewS , 6, 
datum Ginemé , 7, 
datas dinem7 , 8&8, 
datum dinems , 38, 
datum adinemd , 10, 
dete dimamioO , ii, 
detun dinemii , i2, 
datum dinemi2 , 13 , 
datum dinemi3 , 14, 
datum dimemié , 15 , 
} 
VARIABIZ layerZadd { 
type FRING 
format 8a 
} 
DATUM ilayerzadd { 
num rows i 
nt columms 34 
leader "Add mep isyer* 
trailer “te display” 


i, 
Oo, 


oe oe oe 
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VARIABIZ layer2zdel { 
type SERING 
format. %8e 
DATUM ilayerzdal { 
aun_xows 2 
awn_colume 39 
leader “Remove map layer” 


WmEpow askiayer { 
awWA_rows 2 
uum Golumms 41 
datum jayerzadd , ©, 1, "CALL add layer” 
datun layer2zdel , 1, i, "CALL deal lsyer® 


TRETLINE deoael {"Reture to Mep Goatrol Screen") 


soTToN doaei { 


? 


num rows i 

num colums 33 

textline dceel, 0 ,2 
helpfile halp/newasemat.. hip 


WODOW  donel { 


awa rows pF 

mwn_oolwmas 50 

betton doaei, 0 ,2, "REW SCREEN mapcoatrol* 
helpfile help/newaseuat .hilp 


SCREEN mapean { 


title "MAP SCREEN MANAGIRGEWT- 
window asenemocmm ,, 2, 1 
wiadow layertzt , 3, 2 
window layernow , 8, 34 
window asklayer , 19, 1 
window aonel , 22, 1 
border TEs 

} 


= LL le Le a LY SS ER A SS nk ERP GS EDS rh SD SS De sen etn 


TEXTLINE sctavail {"Sorry, thie factlity is act yet aveilable"} 


WIRDOW addelnapiafo { 


num rows 58 

atm_columas 78 

teztline actavail, 4,10 
helpfile haelp/nohelp.hip 
} 


SCREEN addalmepiafo { 


title "ADD OR DELETE INFORMATION CM A MAP LAYER 
window asenemocs, 2, 1 

window addelmapinfo, 58, 1 

window donel , 14, 15 

window ma joractica, 18,1 
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2 dy “CALL, let2dec sent", “REWVALS" 
, 36, "CALL loa2dec sent", “HEWVALS" 


, 1, CALL lat2dec éshow", "MEWVALS® 
, 30, “CALL lomtdea éahow", “NEWVALS" 


i 
i 
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Appendix B 
PROGRAM LISTINGS 


The following listings are the C-language software modules of which ASAN is composed. 


[PARAARRARAEENEADEAEARERAERRAEAREARAREEREAEARAARREHAANAAAERRANASHEREAERERARGERE 
esen.po -- ASAN Main Progran 


. Opeme the printer. 

Calls strtASAN to establish ccmmunicaticn with ORACLE 
Verifies that ASAN software is valid. 

Calle Uinit to start the screens driver. 

at end of the seasica cicseas database and priater 


@ewen 
> ce; 8» 88 8 & @ 


asp Do 8 8S & DD ® 


fed 


AARARARARAAAAARARAAAAERENEREARERARERAARARAARERREEEEERERAAARRARARERARAEREERAAEEE / 


#4uclude <stdic.h> 
@include <process .h> 
@inolede <striag.h> 
@izclude <time.h> 


EXECS SOL BEGIN DSCLARR SecTion; 


EXEC SOL DWCIODS Sabarris aA; 
EXEC SOL INCLUDE hostvars .h; 


Exec 8601. EXD DECLARE SECTICH; 


EXEC SQL INCLUDE SOLCA; 
Gdefine SOLCA STORAGE CLASS 
#include “asen.h° 


main () 


{ 
extera iat ERA DEBUG FEATURES ; 


ast 4; 

iat OC _u21l_epheroid(), closeORA(), logeatry(), stxtASAN(), vfy_ASAN(); 
void expomeg() ; 

etatic char *legal actice[1i] «= 

(*\n\a\a\a\t\t\t RESTRICTED RIGHTS Lacen\a\a", 

*“\tUse, duplication, or disclosure is subject to reetricticas\n”, 

“\t as eet forth in subdivision (b) (3) (44) of the\n", 

“\t Rights in Technical Dete and Computer Software Clause\a", 

"\t\t at 352.227-7013 of the DOD FAR Supplemeat.\na\n", 

"\t\t\tRR LABORATORIES THCORPORATED \n”, 


W\t\e\t 10 MOULTON STREET\n“, 

“"\t\e\e Cambridge, MA 02236\a", 

e\e\e\e €17-673-3000\n\a\n", 

2 Veer Interface Copyright (C) 1985, BEN Laboratories Incorporated\a", 
“\e\e\t All Righte Reserved" }; 


FILE *fopea () ; 


as pra = fopen (*pra*,“a"); 
if (pra = BULL) { 
printf (“\nOan’t opem prianter!*); exit (128); } 
dante = fopen (“chronmfil .aaf", “a"); 
1¢ (dante == WOLL) { 
print? ("\nCan’t copes chroafilet"); exit(128); } 


prints ("ta [(205", 27); 
for (2 0; 4 < 11; i++) print? (*4e", legal notice[i]); 


printf®("\a\a\a\n\a\t Please tap the space bar to ccoatinue, \corrn-c\" \ 
to abort .\a\n"); 
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MEA DEROS FRATURES = 1; 


wtmzcoae = i2?; 
OG_u2ll spheroid (“clarké6é") ; iy 


@txtaAgar (); 

Gitdet cCERCKOUT 

printf ("\aSuccesfully connected as Project $d (%0) \aPrivileges are’, 
ASSESSMENT .1d, ASSESMENT . name) ; 

for (1 = 0; 4< 3; 44+) priate (* tc °, ASSESMaNF?. auth [1}) ; 

fendir 


/* You are now succesfully CcMmmECcTed to ORACLE. Compere the a/ 
/* software actually running to what is im the validation file. %/ 


if (vfy ASAN()) exit (16) ; 


/* You are now succesfully COMMECTed to ASAN. Goatrol is a/ 
/* transferred to Uinit, whence it returas caly at the very «/ 
/* end unless scmething untoward heppeas along the way aad o/ 
/® ASA decides to pull the plug in midstream scmewhere. . w/ 
Viast () ; 

Logentry () ; 

GloweeORA () ; 

print? ("%a[24; 18°, 27); 

exit (0); 

} 


[PRAARERARRRARARARAAEERERRAAARERERERERERRAREARRREEERERKERERRRARERKERERERRRERE 


® * 
* eca2db .pa -- Routines coanecting a USERNAME to ORACLE, etc. * 
e a] : ® 
* bd s = 
ad This file ocataings: ® 
* * 
® ASAT CORR - connects any ASAN Assessment to ORACLE * 
* aloweedRA - Glosees ORACLE Dimes a 
* lastsess ~ retrieves last seesica from the logbook bed 
ad Logeatry - makes an entry in the Assesemant’s logbook ® 
* myCnmee ~ £i.le im ORACLE user portion of ASSESSMENT structure * 
* mrollLORA - emrcolls a new Assesenent as am CRACLE User * 
ad SUccen ~ connects ASAN’s SUPERUSER to ORACLE. * 
* wlyoid - determines if a username exists in ORACLE. * 
e e 


alahahahatalalahadahahahahahalaltabababelaiababalaiaiababstaialalelelsiahabeialaheislatetaiataltalalsleteliaaiaininielatoetaiataie ddeiatod f 


#include <process .h> /* Seader for calls to Ms-Dos a/ 
#include <stdic.h> 

Sdefine SOLCA STORAGE CLASS extern /* Switoh for header files a/ 
EXEC 9OL REGIN DECLARE SECTICHT: /* All BOL declarations for this */ 
EXEC SQL DFCLUDE hostvare .b; /* are in thase two header files */ 
EXEC SQL INCLUDE Sfnharris.b; /* this come comes frem °C" a/ 


EXEC SQL EMD DECLARE SECTION: 
EXEC SQL INCLUDE SQLCA; 
@4mclude “asan.h" /* @tandard ASAN Header File a/ 


iat ASANccan (name) 
[PARARAARRAKARARARERAARERRRERAERADEARAEREREARAEARERRERERRAREERAERRERERRERARER 


ASAMocoan ~~ Connect an ASAW Assesment to ORACLE 
aa 


Routine ROLLS SACK any outstanding transactions of the curreat 
weer aad then connects to the requested user. Returns an error 
code which indicates whether or act the CONNECT was successful. 


Rotes: i. The existence of the assesment ca the database is 
asewmed. ( vfyOid(name) ie available to abheck .) 


2. Ig the neme requested is not a “real” assesaneat 
bet ome of the privileged ORACLE names {used for 
eyetem maintenance, DBA functions, etc.) the CONNECT 
will fail (seqica.sqloode == SQL _BAD LOGOM). If so, 
you will be re-COMMECTed to the old assesment and 
the error code of the failed cennect is returned 


to the calling program. 


ee er s . » 
a oss ® 
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REARRAARRARLERAARARKARARARAARKRAAHARERARRARRKKERERE AeeRaRaahERAnnanannAneaanaRn/ 


char neme[); 

{ 

Segister iat 1, 4; 

iat temp, logentry(), loggedom(), myOmame(), recom, SUcoma(); 


void exzpOmeg({); 
Ghar *aloak () ; 


#ifdef CaEcKouT 
print? ("\sASANconn: %e", name) ; 


Loggedon () ; /* Verify that we know who the person responsible is %/ 
SLOV? (“Please stand by: Switching assessments... .*); 
logeat ry () ; /* Make entry in log hook and disccanect previous user */ 


WEEREAMI (Screen, Window, Detum, Button) ; 
miselebl.arr[0] = misdeses.arr[0] = ’\0’; 
miselabi.len = misdesc.lem @ 0; 
af ( (eqlea.eqlcode == 0) jj /* These are reasceable retura codes */ 
(eqlca.eqlcode == NOT LOGGED cH) || 
(sqica.sqlocdsa «= MOT _COMMECTED) ) { 


stropy ( uid.arr, mame ); /* Mote: The SQL CONNECT statement 8 */ 
wid.lem = strles ( uid.arz ); /* doesn’t like an immediate paseword */ 
stropy ( pwed.arr, univpwd) ; /* and a dynamic usernmme..... a/ 


ped.iesm = striem ( pwd.arr ); 

EXEC 80% COMMECT :uid IDENFIFIED BY ? pwd: 
temp = (int) sqlca.sqlocde; 

@iftdef CEECKOUT 

print®(" Coaneat = %1d", sqlosa.sqlooda) ; 


Gendir 
ewitch(temp) {( /* Wheat did ORACLE come up with? */ 
oase 0: /* COMMECT Succeeded as planned ¢/ 
fpriat? (dante, /* Load the ASSESSMENT structure */ 
"\ate Connected te to ID = td (t8)", /* and if thet wae o.k. you can %/ 
alock(), planrnam.arr, /* Pick up the descriptice fren */ 
wserno, wid.arr) ; /* the site’s table of ccoatests */ 
af (ImyOneme()) { 
EXEC SQL SELECT description 
FROM table of ccateats F 
iINTo : workspace ; . 
WEERE idnumber = :userno; 
#iftdet CEECEOUT 
printf (* $1d", sqlaa.sqicode) ; 
feadir 
if (Isqlca.sqloode) { /* Found = description im table of coatentes */ 
workspace .arr[{workspace.len} = ‘\0’ ; /* Yruncate descriptice */ 
3 = (sizeof ASSESSMENT . desc) “1; /* to £4t ca the screen */ 


if (workepace.len >= 4) ( 
for(i w 0; 4 < 3; 4++) AsSsEsmecrT .desc(i] = workspece .arr [i] ; 
ASSES MENT .desa[j} = '\0’; } 

else stropy (ASSESMEEN? .desa, workspace .arr) ; 

} 

elee { /* Ho Descriptioa..... Bow can this ber??? */ 

TREDCEARG ; é 

fprintf (dante, “\ntse ASANconn: %s net in 7.0.6", alock{), uid.arz); 

fprintf (dente, *\n\t\t\t ts", eqlca .eqlerrmm.sqlerrs) ; 

SLOUTEP ("Security Violation: Table of contents error"); 


/* This will beccme a security viclatical 
a ge 


aLloeeORA () ; 
exit (255) ; But for now, let it go by */ 


etropy (ASSES ENT . desc, 
"Deecriptica missing from table of ccatente”) ; 
} 


EXEC SQL SELECT TO CHAR (SYSDATE, ’DD-Moa-YY EE24:MI:85') 
Whom dual INFO :timesti: 

#ifdef cEEececeyrr 

print? (“t1d", sqloa.sqlceds) ; 

#endiz 


EXEC SOL SELECT TO _ CREAR (start work, ’dd-Mon-yy EE2Z4:MI: 88’) 
rRomM logheock 
Orro :startdate 
WEERR start work = 
(SELECT MIN(etart work) from logbook) ; 
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ifdef cusceour 
print?’ (°tid", sqloa.sqloocde) ; 
fendi 


if (eqlos.sqlccde) { /* I€ you are in the F of ¢ a/ 
af (sqlae.sqiocode == SQL mor) { /* but act here, you are new */ 
stracpy (startdate.arr, timeeti.arr, timest1.len) ; 
startdate.lem = timesti.len; 
etrucpy (lastdate.arr, timesti .arr, timest! . laa) ; 
iastdate.lea = timest1.lea; 
lastetr.lea = 0: 
lastmoa.les = 0;} 
else { 
mmbceesa - 
fpriatf (dante, “\ats ASANocan: te logbook error’, 
Glock(), wid.arr); 
fpriatfidaate, °\a\t\t\t se", eqica.sqlerm.sglerms); } 


} 
else { 


WEERE stop work «= 


lastutr.arr[lastetr.ienj) = ‘\0’; 
iastace .arr{(lastmce.len) = ’\0'; 


/* All that’s left now is to put up the screen t/ 


MEW_SCREEN (“probetat screen”) ; 
WEWVALS {} ; 
Lf (ASSESSMENT .acth{2] {= ’Y’) 
SLOUTB? ("This assesment does not have resource authorization") ; 
getura (int) 0; 
} 
aise { 
Eepceesa - 
Sprint?’ (dante, °\nts Mysterious failure oa %te*, Gleck(), aid.arr); 
fprint? (dante, "\n\t\t\t te", eqice .eqlerm.sqlerrms) ; 
fpriatf (dente, “\a\t\t\t while retrieving info from STS . VIEXPUSER") ; 
temp = (int) sqlca.sqlcode; 
SLOUTAP ("Undiagnosible eystem failure. ASAN will restart"); 
st ropy (ASSESSMENT . name, "SUPERUSER") ; 
MEW_SCREEN ("first screen") ; 
break ; } 


/* Trouble in River City 1f you get this far down i= the ewitch .... e/ 


Case SOL _ WO USEKIAME: 
SLOUTB? ("You canset use a blank as a mame”) ; 
break ; 


aaee SQL BAD LoGom: 
cnse WOT_LOGGED Of: 
ZpomsG ; 
Sprint?’ (dante, °\nts Authorization failure on %e°, clook(), uid.arr); 
fprint? (dante, *\n\t\t\t *e", sqloa.sqlerm.eqlerms) ; 
eprint? ( workspace.arr, “Unsuccassful: &s", 
eqica .sqlerm.sqlerruc) ; 
SLOUTB? (workspace .arr) G 
dDreak ; 


defanit : 
SEDCASG : 
fprintf( dante, “\nte Unsuccessful dogen: Se", clock(), uid.arr); 
fpristf( dante, "\a\t\t\t ", eqica.sqlerm.eqlerras) ; 
eprint’ (workepace.arr, "Unsuccessful: se", eqlca.sqlerm.eqlerzms) ; 
KLOUTEP (workspace .arr) ; 

) /* nd swrree 4/ 


strapy ( wid .arr, ASSESOMENT . name) ; /* Re-COMMNECT with «/ 
wid.leo = strlen ( uid.arr ): /* previous name. «/ 
if ( atraup ("SUPERUSER‘, wid.arr) ) { 
EXEC SOL CosurECT said IDEWPPTIFITED sy i ped: 
recom = (int) sqlca.eqloode; 
/* Re-initialise the scree. Logeatry() omll has closed all cursors! a/ 
af (frecom £6 (fetromp (Screen, “chgcurasescreen”) ) ){ 
pechgase () ; 
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retura temp; } 
} 
else recon = SCocan({) ; 


4¢ (zecon) { /* Mow we’re steak beyoad help */ 
mEDCMSG; . 
SLOUTBY (“ASAN got \“stuck\* looking for the data..... "); 
fprintf( dante, “\nte ASANoona stuck: te", aloak(), 
eqica.sglerra.sgqlerms) ; 

fprints( dante, “\n\t\t\t Arter attempted re-ccanect to ts", uid.arr); 
eloeeORA(); 
exit (255) ;} 

SILOUTR? (“ASAN mast restart due to an internal error”); 

MEW SCREEN (“firetecresn”) ; 

retura temp; 

) 

else { expOmeg(): /* I€ you get here, you've been doing */ 

Sprint? (dante, /* ecmathiag outstandingly bizarre a t/ 

“\ats Forced shut-dowa by te", /* long time before this functica was */ 

aleock (), /* called. No idea how to recover! a/ 

eqloa .eqlerra.eqierzmnc) ; 

eloeeORA () ; 

exit (255) ; 

} 


G1loseORA () 


/tenenn HARARAAARARAEREEREAARALAEARAAEHRAEAAARAAERARAEARAARRREARARAEARERRENHAEEEE 


elcoeeoRA -- Disconaact am ASAN Assoament from ORACLE 
,omeenennel and return ORACLE to original estate as 
gives by 90 roode. 


Routine ROLLS BACK any coutetanding transacticas of the current 
aser and then disconnects from ORACLE. Returne an error code 
which indicates whether or act the oall was successful. 


Botes: 1. The value of 0O code is set in the main() functica 
es the retura code of the initial logoe attempt. rf 
these codes change in subsequent releases of ORACLE 
this function must be recompiled with the. sew codes. 


2. Unless the current user is SUPERUSER or this functica 
is called because of an unreccverable ORACLE error, 
calls to closeORA() should be preceded by logeatry(); 


se ce; ®@e eee eseee ec ee ee DDS 
i | 


SARAAARURERAARRARANERORRAARERRRAAARREEREERARRERERERARRARRRORERAARRARRERAAReR / 
{ 

iat doode, falose(), spawnlp () ; 

ghar *elock(); 


Giftdef CEECECO?T 
printf (*\acloseORA") ; 
Gendif 


SLOUT(° wen End ARAN *en*) ; 
fprintf (dante, °\nts ASAN Close-dowma process :", @loak ()) >; 


EXEC SOL ROLLBACK WORK RELZASE; 
Oifdef CEEBCKOUT 
print®(* rolled beck ¢1d4", sqloa.sqlooda) ; 


fendi 

if (00_rcaode == 0) { /* We're dome if ORACLE was up when we started */ 
fprintt (dante, ~ Servers retaiaed intact") ; 
zretura 0; 
} 


if ((00_reode == ORA UNAVAILABLE) | | (00 _racde ow -3120)) { 
doode » spewalp(P WAIT, “ior.eze", “ior.exe", "shut", WOLL) ; 
@itdet CEECKOUT 
print?’ (" %d*, dacde); 
fendit 
fpriat? (dante, “\ate Shut down ORACLE Server (8d)", aleak(), decode) ; 
if (00 _rocde f= ORA UNAVAILABLE) ( 
doode = spawnip(P WAIT, “remora.ezre*, ‘remors.exs”, "all", MULL); 
@ifdef CESCKOUT 
print’(" %4", daode) ; 
fendi? 
fprint? (dante, °\nte Deinstalled SQLIME (td)°, Gleek(}, docda); 
return docde; 
} 
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} 
else { /* Gould be ASAN wasn’t installed, or ..... of 


fprint? (deste, ° Servers left unchanged (Code %d)°, 00 rocde) ; 
} 

fprint? (deste, "\n°) ; 

faloee (dante) ; 

falocee (pra) ; 

} 


int lastsess () 
J PAAAAADAARARREREERETAEDHAAREREARARARARRRARERESEERAHERERAARERHARRRARORRAAERER 


& e 
® lastsess -- Ratrieves iast entry frem the ASAN logbook. It is * 
® used whem we need to establish the last activity oa ad 
e the system. (SUPEXUSER does act leg its activity.) ld 
& ‘ * 
& Returas the value of eqlica.sqiccde to calling progran « 
* a 


AARAAARAAAARARARAARARAARAAARARAARREAHERERRERAEERARAARAARARRRRRAREARREERRRERRAR / 


SLOUT ("Re-loediag the last sessicn’s paremeters") ; 
EXEC SOL SELECT plasaer, TO CEAR(stop work, ’DD-Moa-TY EEZ4:MT:88’), idaweber 
/* rRom- lastiloeg */ 

rao last login 

iImTo ‘plaarist, :lastdate, :usernec; - 


@4fdef CupcxouT 
Print? (°tld", eglos.sqloocde) ; 
Gendi? 


if (!eqlca.sqloode) { /* This is whet happemse whee all is 0.K. */ 
planarist .arr[(planrlst lea] © *\0’; 
lastdate.arr{lastdate.les] = ’\0’; 
) 


else if ( eqlon.sqicode == sgt EOF ) { /* Whes you start the very first time 
*/ 

etropy (planrist .arr, “No work ewer dome yet") ; 

piaarist .arr(2ij] = ‘\0’; 


else { 


fpriat? (dante, 
"\ate Incemprehensible return code ¢1d retrieving last session", 
Gloak{), seqica.sqlacde) ; 
fpriatf (dante, “\n\t\t\t %e*, sqlcoa.sqlerm.eqlermns) ; 
exzpOmeg (} ; 
} 


Gifdef cEECcKOUT 
print? (*\nts, %s, %d“, planrist arr, lastdate.arr, userac) ; 


wreturm (iat) eqlana.sqloode; 
} 


iat logenatry () 


[ARARARRARRARAEREREARAARRERARARREREAREEREEEEAEEARRERAREERANAERRERERRREAREREER 

® 

legeatry -~ Makes an entry in the ASAN register for the work just 
performed ca the assesement. It is called by the 
ASANoonn aad SUccnn routines when they close out the 
previcus ascseement. 


Returns the value of sqica.sqlocode to calling pregram 


»» edo? & 2 FB 
»e> 8 B® SBS 2 DB BD 


SARERRARREREERRRERAARERHARAREREREREEREREREEREARADERARRARERRARRERRRORRERERERD / 


{ 
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/* been known to pop up here. 


if (eqica.sqloode t= 0) { 
RaDCRMSG ; 
4f ((eqlas.eqlocda fea MWOT_LOGGED OM) 6&4 


} 
alse { 


(sqioa.eqicode f= NOT CONNECTED)) { 
eprint? (workepace.arr, “Logbook choked ca: %s°, 
eqlea. sqlerrm.sqiarras) ; 
Sprintt (deste, "\nte te\t\t\t making logbook emtry for te‘, 
aleck({), sqlea.sqlerm.eqlermsa, ASSESMERNT.amme) ; 
SLOUTE? (workspace .arz) ; } 


/* All ie well and we are ready to make the logbook extry 


aserno = ASSESSMENT id: 
EXEC SQ SELECT TO CRAR (SYSDATE, ‘dd-moa-yy EET4:MI: 88’) 


WROM DUAL TTO :tinest?2: 


Exec 66% INSERT OFFO register (planaer, iastutr, iasteoe, 


etart work, stop_work, idaumber) 
VALUES (:planraam, :lastetr, :lastmoa, 
TO_DATE (:timesti,’dd-mom-yy BE24:MI:88'), 
TO DATE (:timest2,’dd-moa~-yy EE24:MI:88'), 
7ESerns) ; 


#ifdef CEBCKOUT 


print? (“INSERT 814", sqloa.sqlocde) ; 


fendi 


if 


{roode = sqloa.sqiccde) { /* Just im case it fails..... 
mapcaeesd : 
Sprint? (dante, "\ate Logbook entry failed: te*, 

alock(), sqloa.eqlerm.eqlarme) ; 
fprintt (dante, *\t\t\t %e (ID = td)”, ASSESQMENT nama, aserac) ; 
Sprints (dante, “n\t\t\t %&e, %e, %s°, 


print? (" Committed $14", sqlaa.sqloocda) ; 
fendir 
fprintt (daate, °\nte Disconnected te from ID = &d (%s)", 
alock(), pianrnam.arr, uwernc, ASSESMMENT . name) : 


return rocda; 


} 


} 
alse { 


/* If you are SUPERUSER, just make */ 


REC SQ1, ROLLBACK WORK RELEASE; /* @ call to log off and retura 


#itder 


fendi¢ 
} 


priatf®(" %1d (#0 Bypassed)*, sqloa.sqloods) ; 


retura (iat) sqlos.sqiocda; 
} 


iat wyOname () 


[PRARRERERARERAARERRAREARATAERAADAAAARARAAREEAAAAERRAARRRRARARRAREREREARRREED 


* e+ 2 So 2 2 D2 ® 


myCame 8=6©-- Fo set the ORACLE USER information in the ASSESSMENT 


structure so it is available to all ASAN routines. 


Looks in view SYS .V4EXPUSER and retrieves USERID, 
MYNAME, TIMESTNG? and authorization codes. 


Returns the value of sqloa.sqicode to Galling program 


"SUPERUSER")) { /* Make emtry im log book if the 
/* previcus name was not SUPERUSER. 
/* Terminate whatever is outstanding 
CERCEOUT /* Ome normally expects 0 hare, but 
priatf(’ %14°, sqlca.sqlocde) ; /* coaasiconally something horrid has 


aa 


*/ 


ntaiahahalaialaiaiaiadabalalahelabelsialahaisiabsiababalahatadaledsledaiabahaletelalatatatalalalalainiiotelaininiainiaiodetcioiele dodiee ot 7 
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RXEC SOU SELECT myid, myprivs, myneme 

FROM sys .véerpuser 

UrTo :userno, :0 suth, ‘my seme; 
my _aeme.arr(my ceme.lea)] ~ '\0’; 


@itdef CHECKOUT 
print?(" 61d - %d (te)\a*, eqlaa.sqlocde, my name.les, my Dame .arr) ; 


feadit 
estropy (ASSESSMENT. .neme, my Dame. arr) ; /* Store reeults ia globel */ 
ASSESSMENT 1d ~ usernc; /* ASSRam@eENT structure «/ 


ASSESSMENT .anth[(0] = © auth .arr[0]; 
ASSESMOWT .acth(i] = 0 suth.arr(t]; 
ASSES MENT .auth(2] = 0 auth. arr [2};: 


retura (ist) sqloa.sqlccdea; 
} 


int aroLlORA (name) 

[RAARAAAAAARAAAERAAEHAEAERERAARORAEREERERARAAREEARERRERORRAEREEREEERRERERARAR 

® 

aroLiORA -- ASAN’« SOPERUSER Grants COSMECT and RESCURCE 
to new ORACLE user 


Routine a). Signe ca as SUPEXUSER, if current user act DBA. 
b). Barolis a new ORACLE USERNAME. 
a). Signe om under the new sssesement’s name. 


Returns to calling program with sqlca.sqloode of last step executed. 
Routine teminates immediately if a eub-step returns a aca-sero code. 


Meturas (ZERO) if successful or (SON-XERO) if not successful. 
Moet likely, in order of sppeaeraace 
~6001 - Heme already exists 
-0954 - Ho IDEWFIFIZED BY clause (i.e. blenks in name) 
-09867 - Tilegal character in username 
“anne ~- Any other ORACLE error that can ccaur 


*eoe ee Seo Pe Re Pe RP ee BS 
oeteeep eee oP OB ee HehmURrmUUOhUrhUFhUF 


RERRARAERAAAEARERARAREEARARERARERKAREARRARRAEREREERARARRRARRAEREEHORRERRRERAAR / 


ghar name[{j; 

{ 

aat dlea, roode, vfyOid(), sUocan() ; 
register iat 1, 4; 

char *aloak () ; 

etatic char inputline[(] = “entdesc "; 


#itdeft CEECKOUT 

print? ("\narolloRa") ; 

delse 

SLOUT ("A moment, please, while ASAN updates ite database....... "): 
gendif 


Af ( reode = SUocan() ) { /* GOUPEROUSER’s services are rewired to do this */ 
@itdef CABCKOUT 


priatf(* %1id°, eqica.sqlioccde) ; “ 
@eadizf 
epriat? (workspace. arr, “SUPERUSER LOGON REQUEST CRASEED Error %td.”, 
xreode) ; 
SLOUTE? (workspace .arr) : 
SLOUT? ("You need serious help!....... "); . 
fprint? (dante, "\nte MROLIORA: Superuser logon crashed", cloak ()); 
mmpcaesG ; 
fprintf (deste, “\a\t\t\t %e", eqlas.sqlerm.eqlermas) ; 
GlosacRa () ; 
exit (255) ; 
} 
3 = n2bv.lem = strlen (name) ; /* Convert name to uppercase because */ 
for (1 2 0; 1 < 3; i++) /* ORACLE keeps USERWAME in uppercase */ 


a2bv.arr[{4] = neme[(i} = toupper (name [i}) ; 
n2bv .arr(nazbv.lenj = ’\0’; 
strcpy (workspece.arr, “GRANT CONNECT, RESOURCE TO °); /* The GRANT statement a/ 
etrcat (workepece.arr, name) ; /* ment is act part of */ 
strcat (workspace.arr, ° IDEMIIFIED BY “); /* AMS eteadard squi */ 
strcat (workspece.arr, waivpwd) ; 
workspase.lea = strlen (workspace.arr) ; 


124 


print? (*\ats tid’, workspace.arr, sqica.sqlccde) ; 
dendift 


af (eqlan.egloode) { /* Who kacws what evil lurks im the heart of ORACLE? */ 


fpriatf (dante, "\ate Fatled to enrol ge\a\t\t\t ts", 
alock{), same, eqion .sqierm.eqlerrss) ; 


cetura (int) sqlcon.seqicode; } /* This traps any illegal characters */ 
/* ead other strange thiags.... af 


fpriatf(daste, “\ate Successfully enrolled %s", alock({), samme) ; 


Exec 961%. SELECT userid 
FROM syeuserlist 
Imre :uid 
WHERE weername = :a2bv; 


ADD_WINDOW( “newnasdesc" , 5, 5); /* Ueex may enter up to 240 */ 
workspace.arr[{O] = ’\0’; /* aharactere of drivel to */ 
for (42 0; 2 < 4; 144) { /* Ademtify this assesment */ 
inputline[T}] = i+48; 
UPDATE_DATUM (input line) ; 


emtdesc(i}.lda = strlen (entdess[i] .arr) ; 
af (entdesa[i] .lem == 0) break; 
etrcat (workepece.arr, eatdeesa(i] .are) ; 
af (entdeec([i].lea < 30) break; 
} 
worksepece.len = strlea (workspace .art) ; 
REMOVE WINDON () ; 


EXEC SOL INSERT DFFO table of cootents (idnumber, descriptica) 


VALUES (:uid, : workspace) ; 


if (eqloa.eqicode) { 
RED CaasG ; 
fprint? (damte, “\ate Table of contents entry failed\n\t\t\t %s °, 

alock(), egica.sqlerm.sqlerms) ; 

SLO0T? (eqlaa . sqlermm .sqlerrmsa) ; 
recede = (int) sqica.seqicede; /* This will cause the aesesement 
EXEC S01. ROLLBACE WORK; /* to become invisible to ASAN or 
#itdef CHECKOUT /* may lead to security viclatica 
priatf(" %1d", sqica.sqiacde) ; /* errors that will stop executica 
feadif 
} 

alee { 
RxXec OOt COMMIT WORK; 
soode =» ASANoccan (name) ; /* Once you get this far, siga ca. 
@iftdef CRECKOUT /* This better never be nca-zero! 
printt(" %id*, sqion.sqicode) ; 
fendit 


retara rocde; 
} 


int. SVcona () 


vd d 
«/ 
*/ 
*/ 


*/ 
*/ 


[J AARAARARARRAARAARHARARERERRAARRAERERREREREREEREREERERREREARERERERHEEARAREHED 


® 
SVacan tries Goanect ASAN’s SUPERUSER to ORACLE 


Returas SQOLCA. SGLOCDS 


o 3+ 8 © @ 


oa 2 6 8 2 ® 


AAARAAAAAARAARAAARAARAARARRARARRARRAARERAARARAAERAERERERRERERHOREREERREERREE / 


{ 


etatic char dbauid[(] « (0123, 0125, 0120, 0108, 0122, 6128, 0123, 0108, 0122, 087, 


0115, 0105, 0120, 0110, 0111, 0223, 0124, 0127, 0120, 0210, 
0105, 0114, 0105, 0123," \0"); 


iat temp, logentry(), myOmame(); 


§4fdef cEnckour 
print? (*\as0ecan: °) ; 


fendi’ 
logeatry ({) ; /* Make logbook emtry end terminate whatever is outstanding 
etropy( uid.arr, dbeuid ); /* Counect */ 


aid.ien @ strien( uid.arz ); 
Exec SOL COMNECT -: uid: 
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e/ 


@Gitdef CEEcKouUT 
printf (° $14", eqiocn.egicods) ; 
Gendizc 


if (lteqlea.sqicode) myOname() ; 

etrapy (ASSEsmazr? deca, "Owner of ASZAN’s Administrative Informatica”) ; 
retura (iat) sqlca.sqicocde; 

} 


int vwfy0id (same) 
[ARRAARARAERARRARERRAREREERERAEAEERERRERARERAHRARRREREERERRERARARERERRAEREREDE 


e ry 
® vwhyOid -- Verify that a USERNAME exists in ORACLE’ os Dicticaary * 
® * 
@ e 
bal Determines if the username axiste from the SYSUSERLIS?T View. « 
*% Returns SOLCA.SGLCODE of the SELECT st.axtenent. bl 
* @ 


RAAAARAERERAAARAAAARRARRARRAERARAEEREEEAAERRRERERLAAREERAAARARRRRERERERRARER / 


cher nsme[]; /* Ascgumest is pointer to character string */ 
/* eooutaining the userame to validate a/ 

{ 

register int i; 


ifdef CEBCKOU?T 
priat? (*\avfyoid") ; 
@eadiz 


a2zbv.les = strlen (name) ; /* Set wp for WEERE clause of the SELECT */ 
for (2 = 0; 1 < a2bw.lem; i++) /* CGRACLE likes uppercase aames */ 
a2>v.arr({i] = toupper (mame[4j) ; 


ZXEC SOL SELBCT userid 
rRoM 8 eyeuserlict 
aro :userno 
WEERE weerkhame = :a2zbv ; 


@itdef CEECKOUT , 
printf(”’ $id’, sqioca.sqlacdea) ; 
dendi¢ 


returm (int) sqlana.eqlocde; 
} 


[LAMARAAAARRERAAARAARERERAAEARERERRERAARARARARHERRARARARARERAERERARARARARARREREE 


* e 
* houserpt.po -- Set of routines to print “housekeepiag” data from * 
* the ORACLE Deta Dicticaary. bad 
® * 
® Routines in this file: * 
e * 
® sprint - Allows SUPERUSER to print ean assesments tables * 
” SUpropt - Gelecte level of detail for SUprint or prints * 
* HEADQUARTERS or SUPERUSER tables with that option * 
* pratabe () - Prints names and comments om tables for assesanaent * 
* pratoocl () - Prints names of all tables aad names and ccuments bal 
ad ef columns within tables bad 
® pratabe () - Printe TABLE OF CONTENTS entries * 
® * 


RRARARRERARAAAARARARERRERERERRARAAAARRERRERAREREHHRRERHARRARRRERSERORRRERRERE / 


finelude <stdio.h> /* The usual stuff, of course */ 
#Analude <precess .h> /* Meader for calle to ms-Dos */ 
finclude <striag.h> /* String manipulatica header */ 


Exec SOL DCIUDE SOLCA: /* sG% Communioatica Area a/ 
EXEC SOL BEGIN DECLARE SECTION; 

EEEC SOL INCIOOE host vars .h: 

EXEC SOL ERD DECLARE SECTICH: 

#include “asantype.h” 

@include “asaa.h" /* standard ASAW Eeader file *%/ 


static printoptica = 0; 


iat SUprint (name) 
[AMAARARRERERKORARRRRARERAEAAREREAERARARRAANAARARARERERALHEERRRRARAREARNERRERR 
e * 
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Sprint () ~~-  Qriet tables for an assesement (called from the 
SE housekeepiag screen while SUPERUSER is connected 


Routine logs ca as the named assesement, priate tables as that 
aseocement, returas to SUPERUSER, puts up housekeepiag scream again. 


oa ses # & 68 
» 2. *# * @ © 


AHAARARAAAAARERERAEEAHENEDERARAAAAREdAANRAARERARRAAAAANAGANANNAAeRNKARERERES / 
Ghar same []; 


{ 
ehar *alock(); 


etropy (uid.arr, seme) ; 

eid.len @ strlen (uid.arr); 
etrapy (pwd.arr, univpwd) ; 
pwd.len = strlea (pwd .arr) ; 


weDneeG ; 
fpriatf (deste, "\ate Could act connect to te for printing tables", 
Glock(), name); 
fpriatf (dante, °\a\t\t\t %e°, eqloe.sqlerm .sqlersms) ; 
SLOUTBP ("Could act connect to assessment’) ; 
SLOUTP (eqicaa .eqlerm .eqiermes) ; 
} 
aise { 
myOuame {) ; 
4€ (printoptioa == 2) pratool(); 
else pratabe (); 
} 
stropy (ASSESM@EENT . name, " SUPERUSER") ; 
BVeoas () ; 
if (eqica .sqlcode) { 
maps ; 
fprint? (dante, °\nte Could act reconnect after priatiag tables for %s*, 
slock(), mame): 
fprintf (dante, °\n\t\t\t %e", eqica.sqlerm.sqlerrmec) ; 
SLOUTRE ("Could not reconnect to SUPERUSER") ; 
SLOUTP (eqloa . sqierzm.eqlermss) ; 
exit (255) ; 
) 
REW_ SCREES ("“dbheekpyecrean”) ; 
retura (iat) 0; 
} 


iat sUpropt (velue) 


[ARRAARAARAAAAAAOERESEEREARAEHARAAARARAREREAAREHRARKEEHEAAREREHARRARRARERARARA 


e ® 
& Sopropt {) --- Set opticas for printing assesements or print the * 
* as EEADQUARTERS or SUPERUSER tables a 
e & 
* Routine logs cn as the named assesment, prints tables as that * 
* assesment, returns to SUPERUSER, puts up housekeeping screem again. * 
* * 
SRAAAAAAAEAAARRRERERERRAREREEREAERRADRERERERONERERERAREREEREERRRERORERORERED / 
iat value; 

{ 


char *cloak() ; 
@i4tdef CEECKOUT 

priate’ ("\ns0propt %d4", value) ; 
dendizt 


ewitch (value) { 
ease i: 
priatoptica = 1; 
af (ulieto()) { 
mcaesG ; 
SLOUTP (eqlae.eqlerm.sqlerms) ; 
return (int) -1;} 
blnkdepl () ; 
MEW SCREEN ("slcasscreen") ; 


printopticoa = 2; 
if (ulisto()) { 
EEDCASG ; 
SLOUT? (eqica.sqlerm.sqlaerrns) ; 
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zoture (ist) -1;)} 
biakdspl () ; 
MEW SCREMH (*sloasscreen”) ; 
ubeach () ; 
veteran (ist) 0; 


case 3: 
wliste ()}; _ 
optrl «= hqocen; 
EXEC SOL ROLIMACK WORK RELMASSE : 
EXEC SQL COMNIECT :optri; 
if (eqlca .seglocda) { 
mpc ; 
fprint? (dante, "\ate Gould act connect to HEADQUARTERS for priatiag tables", 
Gloak ()): 
fprint? (daate, “\a\t\t\t %te°, sqica.sqlerm.sqlerms) ; 
SLOUTS? ("Could act connect EEADQUARTERS") ; . 
SLOUTP (eqica .sqlerm .sqlerms) ; 
} 
else { 
myOusme () ; 
4¢ (priatoptica =~ 2) prstcool(); 
else pratabe () ; 
) 
etropy (ASSESMENT . name, * SUPERUSER") ; 
sCocen () ; 
if (sqloa .agqlooda) { 
mpcaase ; 
fprint?f (deste, "\atse Could act recoanect after priating KRADQUARTERS tables“, 
eloock {)); 
Sprint f(daate, °\a\t\t\t %¢s*, sqlos.sqlerm.sglerms) ; 
SLOUTRP (“Could act reconnect to SUPERUSER") ; 
SLOUTP (eqica .sqierm .sqlerrnsc) ; 
exit (235) ; 
} ; ‘ 
MEW SCREEN (° dbhsekpgscrean”) ; 
weturm (int) 0; 


default : 
alista(); 
if (printoptica == 2) pratcel ({); 
else pratabe () ; 
) 
MEW SCREEN (°dbheekpgecree") ; 
retura (iat) 0; 
} 


aut pratebe ({) 


[ARAAAERAAAAAARAEASAAAREAARRARARERRARREREEEERERREREEREREEDAERAGNEAANHARKRREER 
* 

pratabe () -—- Print a liet of all tables for this ascsacenent 
noe 


Routine cpens cursor U2 then fetches rows until SQL BOF is found. 
Zach row printed om the system printer. Them the cursor is closed. 


Bote: Modificaticas to this functica may impect the related 
fuacticas tlisto(), tlistf() aad tlista() that open the 
cursor, fetch rows using it reepectively, aad close it 


ae eo 8 &@ SO © & BD 


sea 828 @2 BP 8 wf 


REAAAARAAARNAAARORRERRORAREERARARAAANARERARROENNERRERERAERERARRARENERERARERE / 

{ 

define PAGESISE 54 
feadef CCheG=TSPACE 

define COOOGTISFACE 54 

int i, 3, lime, lap, aeop, pege; /* Goumters for lines, ets. «/ 


dat tideto(); /* Database Utilities Used a/ 
dat tlist?#(); 
fat tlists(); 


SLOUT (Printing tables") ; 
42 ( ! tldsto(}) ) { /* Cpen eys.véarptab query a/ 
3 = 9; 
pege = 1; 
fpriat?’( pra, “\t\tInwemtory of Tables for te\t\tPage %d\n", 
ASSESM@MENT name, page) ; 
line = 2; 


while ( sqica.sqicede t= 9QL mor) { 
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4¢ ( tlistf() = sot mor ) break; /* Get ame of the next table */ 


Af ( lime >~ PAGESIZE ) { /* Make sure that you have spece */ 


fprint’( pra, *\f\t\traveatory of Tables for te\t\tPage %d\a", 
ASSESMMENT .nama, ++page) ; 
dine = 2;} 


3+: /* Print name of the table */ 
fprintf (pra, "\atdd t-208 *, 4, tid.arr); /* Assumes <= 20 char! */ 


lap = 0; /* Print as many characters as the ccmment field contains */ 
while (lop < workspece.lea) { 


Lop+COMMENTSPACER : workspace. len; 
foe ( ; aap > lap; acap--) /* Find good spot to ead this line */ 
if (workspece.arr[acp] =’ ” || 
workspace .arz{aap}] == ’\0’) break; 


if (lop = scp) { /* Im case we have a line without white space */ 
fpriatf (pra, ° *); 
for ( ; sop < lap+OCRSGENTSPACE;: ncp++) 
fprint? (pra, “tc”, workepace.arr{sop]) ; 
fprint? (pra, “\a\t\t\t °); 
line++; } 


else { /* The normal case when we ona find a white space somewhere */ 


workepace.arr(ncop] = ‘\0’; 
fprintf (pra, "te\a\t\t\t °, sworkepace.arr[lap)); 
linet+ ; 
lep = acpti; } 
iine++; 
) /* Mad WRILE (lop) */ 
}. /* Bnd WEILE (eqloa) */ 
fpriatf (pra, “\n\n\t\t\t\t= =ED =e\f") ; 


_ tlista(); 


} 


@#ifdef cCuscmoUT 
alse { 


print? ("\n\acvucE! My curser did not opem!"); 
ezpOnmsg () ; 
} 


Gendif 


} 


det pratcol () 


[PRARARERERAERAEEHERARARARERAEEERERREREAORERENEEREERARAETARARRERERRORRAAROREE 


a ee ee 


pratcol () mom Print a list of all cclumns CREATED BY this 
eemiiiaieel assesment sorted by table im which they cocur 


Routine cpens cursor U4 then fetches rows until Sou BOF is found. 
Mach row printed om the system priater. ‘Them the cursor is closed. 


Mote: Modificaticas to this functice may impact the related 
functions telisto(), telist£() and telieta() that open the 
cursor, fetch rows using it respectively, and close it 


SAEAAARRERERAAARERDERNEEREAARERAERENDERAORARRERRERRERERRREREEEARERRARREHORRE/ 


{ 


Sdefine PAGESIER 54 
fundef COMMENTSPACE 
fdefine COMMENTESPACE 49 


dat talisto(); /* Database Utilities Used e/ 
ant telist?(); 

iat telista() ; 

amt i, 3, k, line, lap, acp, page; /* Counters for lines, etc. 


char qual sol [31]; 


SLOUT ("Printing tables aad colwmns") ; 
af ( { taltsto() ) { /* Opem “COL” DataDict Query 


4 mi @ 0; 

pege = 1; 

fprist£( pra, “\tIaventory of Columns by Table for %e\t\tPage td”, 
ASSESSMENT name, page) ; 

line = 3; 

etropy (qual col, “q"); 


while ( sqica.sqicode f= SQL sor) { 
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«/ 


*/ 


af ( talist£() == 8964 BOF ) break; /* Get name of the next colum */ 


4f ( line >= PAGESIZ£2 ) { /* Make eure that you have space */ 

fpristf (pra, “\f\tInveatory of Columas by Table for ts\t\tPage td\n", 

ASSESSMENT name, ++page) ; 
line = 3;} 
/* Print name of the table */ 

af ( stracep (qual_col, tid.arr, (unsigned int) tid.lem)) { 

Sprint? (pra, °\n\atdd 0°, +44, tid.arr); 

z= 0; 


etropy (qual col, tid.arr) ;} 
else if (line = 3) fpriatf (pra, “\a\atéd ts (Cont’d)", 4, tid.arr); 


/* Print neme of the columm */ 
fpristf (pra, “\a\t84d %-15e ", +4k, aid.arr); 


lep = 0; /* Print as many characters as the ccmment field costains */ 


Lap+COMMENTSPACE : workspece. laa; 
for ( ; sop > lap; nap--) /* Pind good spet to end this line */ 
Af (workspece.are(nop] =’ * || 
workspece.arr[(nop) == '\0’) break; 


if (lap == sap) { /* Im conse we have 2 line without white space */ 
fpriatf (pra, * at Be 
for ( ; map < lap+COnec=rrsPAcs; nap++) 
fpristfipra, °\t"); 
fprintf (pra, °%a°, workspece.arr (acp)) ; 
fprint£ (pra, "\n\t\t\t °); 
line++; } 


else { /* Bomsally we can fiad a white space somewhere */ 
workepace.arr[map] = ’\0’; 
fprintf (pra, “\tte\a\t\t\t “, éworkspace.arr[lap)) ; 
Line++; 
icp = 1; } 
} /* ad WHILE (lop) */ 
) /* Bad wF(aull string) */ 
Line++ ; 
} /* Rad WRILE (eqloa) */ 
fpriatf(pra, "\a\a\t\t\t\t=e mp we\f"); 
telista(); 
) 


@ifder cCEECEOU? 
else { 


printf (*\a\nouck! My curser did act cpent*); 


expamsg () ; 
} 


Sendize 


} 


dat pratabc() 


[J ARAAAARHARAARAREARHARRERERARRERARARAEAERARESERARRARRARREEREREAARARRERERHSARE 


*s.s eS 2 eS 8 ® fF 


prataba () ceataad Print ASAN’s TABLE OF CONTENTS 


Routine opens cursor US then fetches rows umtil SQL BOT is found. 
Zach row printed ca the system printer. Thea the cursor is closed. 


Mote: Modificaticas to this function may impact the related 
functions vlisto(), vlistf() amd vlista() that open the 
curser, fetch rows using it respectively, saad alose it 


oss: ®# 8&8 82 & BS ® 


SARAAAAARALERAARARAREREREEREEEEERAREREERERORDARRERRERREAADRERRAREREREAEERORER / 


ist 1, j, line, lep, sap, pege /* Counters for lines, etc. a/ 
ant vlisto(); /* Database Utilities Used «/ 
int viist? (); 
dat vwiista (} 
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ghar *now, *aloack (}; 


S007 ("Printing ASAN'’s Table of Coatents") ; 

now @ alock(); 

42 ( 1 wlisto() ) { /* Opem sysuserlist query a/ 
* isk 
page = i; 
fprintf (pra, “\tInveatory of ASAN Assessments %e\tPage td\n", aow, pege) ; 
dine = 2; 


while ( sqica.sqlocde i= 8QL BOF) { 


if ({ viietf() a= S¢L BOF ) break; /* Get the next assesment name */ 

4¢ ( line >= PAGESIZE ) { /* Make sure that you have space */ 
fpriats (pra, "\f\tinventory of Assesements %e\tPage *td\n", now, ++pege) ; 
line = 2;} 

++; 


fpriatf (pra, “\atdd %-206 °, 4, uid.arr); /* heawmas <= 20 char! */ 


icp = 0; /* Print as many characters as the coment field coatains */ 
while (lap < worksepece.len) { 
Bop © (laptCCAMENTSPACE < workepace.len) ? 
lop+COMMENTSPACE ; workspace. le; 
for ( ; aap > lap; nap--) /* Pind good spot to end this line */ 
if (workspece.arr(aopj] =" " |} 
workspace .arr(nap] == ‘°\0’) break; 


4f (lop = acp) { /* Te case we have a line without white space */ 
fpriatf(pra, * "); 
for ( ; nop < lap+COMMENTSZPACE; nap++) 
fprintf (pra, °ta", workspace.arr[aap]) ; 
fpriat£ (pra, "\a\t\t\t *); ; 
line++; } 


else { /* The normal case when we can find a white space scmewhere */ 
workepace.arr[nep}] = ’\0’ ; 
fprintfipra, *Se\a\t\t\t °, éworkspace.arz[lap)) ; 
iinet++; 
lap = soptl; } 

line++: 

} /* Rnd WHILE (lap) */ 

) /@ Bnd WEILE (sqica) */ 
@print¢ (pra, “\n\a\t\t\t\t== =D =\e*); 


wilistea(); 

} 
ifdef CEECKOUT 
alse { 

print? (°\n\scucs! My curser did act cpent”); 

expomsg () ; 

} 
@endiz 
Atti E Pi PEEP PP Tt Tt rt ITitiiiiiilifitititivitirititiyy 
e * 
* 4atize - Create standard set of AZAW Assesment tables. * 
® a 2 
* * 
* Tais file generates: e 
e * 
« Bese Index Cluster * 
CE SNe (-§ =~ mecrmenmermnnnenwe e 
* CLONTERS: GEO CLUS * 
PY ry 
* e 
* TARLES : R_IDS @Eo_cLus * 
® R_LDeRMR quo cLus * 
* R_LEQ GEO CLUS * 
e R_var azo clus ® 
* n 
* Misstous * 
* ACTIVITIES * 
t OPERATIONS * 
* ® 
* MPR_FLIGET PARAM J 
" TAR EPR EXD * 
* * 


SARARARANARARRAARRAREREEREARERERARARREDERERERERERERERORERAHARARRERARAEAE RAE / 


#4aalude <stdic.h> 
ddefine SGLCA_STORAGE CLASS extern /* Switah for header files a/ 
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/* standard ASANW Header Pile 


e/ 


ant intise() 

{ 
[PRAAAAAAAAAAARERAAREAAREAAAAAAREARARREEEAERERERARARARRERHERARARRERRRERORERRD 
e * 
* Create General Geographic cluster GO Cie ® 
a * 


RRARARAAAAARHARARERARERAEARAARERERERAERRARRERARARHERARERARARARARARARRRARARHER / 


Gitdef CEBCKOUT 
printf (“\niatlze °); 


ghas *olock () ; 


SLOUT ("Reserviag spece for data”) ; 


EXEC SQL CREATE CLUSTER GEO CLUS (X_ COORD BURGER, T_COORD MUMEER) ; 


$itdet CEBCKOUT 


print? (“\adeo clue ¢14°, workepace.arr, sqica.sqicode) ; 


gendi¢ 


4¢ ( eqlanm.egicode 66 sqica.sqiacde t= DOPLICATE OBJECT) { 


EapceesG ; 
. 


SLOUTB? (sqlca .sqlerm.sqilerms) ; 


fpriatf (deste, “\ate te\n\t\t\t Creating GEO _ CLUS (ID = 4d)", 
aleak(), sqloa.sqlarm.sqlerme, ASSESMeENrT . id) ; 


retura (ist) eqica.sgqiccde; } 


[PARAAAARAAAAAAEREAAAREARERARAREAARARAEEERNEREERAEERRARRREEREESERAEREREREARER 


! 


Create table to receive data points of Ldm values 


Only the clustered (X,Y) paire are identified here. The 
computational routines will create the remaining (real) 
colwans and decide at run time what their ames will be. 


ess; 2 &#@ @ 2 * & 


RERAAAAARRAARAAAAEAAERERAAAERRAARARARRAHAAAARARARAERRARARDAARARAARRRERRERRRR / 


EXEC SQL CREATE TABLE R IDM ( 


X_ COORD WOMBER WOT BULL, 
Y_COORD WOMBER WOT NULL) 


CLUSTER GEO CLUS (X_COORD, ¥_OOORD); 


@ifdeaft CKEECKOUT 


print? ("\nR Lom tld", sqloa.sqlicode) ; 


felse 
SLOUT("Leq and derivetives") ; 
Pendit 


4¢ ( eqlca.sqloode && sqlca.eqlocde I~ DUPLICATE OBJECT) { 


waaD08sG ; 
, 


SLOUTEP (eqlica .sqlerzma.sqlerms) ; 
Sprint? (dante, "\ate ta\n\t\t\t Creating Table R IDM (ID = ga)", 


@liock(), sqica.sqlerrma.eqilerrmmc, ASSESSMENT. id) ; 


return (int) sqica.sqlcode; } 


/* X-CGoordinate of Point */ 
/* Y-Coordinate of Point */ 


[PARSASARARARAAARARERAEAAAREREREARAARRRARARERRHERRAERERREARERERAEEERRARARERED 


»>e2 os 8 &@ © © B® 


Create table to receive deta points of Lésmr values 


Mote: Only the clustered (X,Y) pairs are identified here. The 
ccmputational routines will create the remaining (real) 
columns and decide at run time what their names will be. 


eae, e moves 2 © 


SHAARARARREREAREREREREERREARRRAERARARAARARRARREREREARRERERERARERERRERRARAARE / 


EXEC SOU CREATE TABLE R_LOUMM ( 
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X COORD WUMRER WOT NULL, /* X-Coordinate of Poiat */ 
¥Y_COORD WOMBER WOT HOLL) /* Y-Coordinate of Point */ 


print? ("\aR_LOeBMm %1d", eglos.sqlacde) ; 
fendizr 


af ( sqlos.sqloode 66 seqloa.sqicocde {= DUPLICATE COJECT) { 
SLOUTS? (eqica .sqierm.sqlerrns) ; 
fpriatf (dante, “\ate te\a\t\t\t Creating Table R_LOWM (ID = td)", 
eloak(), sqlca.eqlerra.sqlermac, ASSESM@EENT . id) ; 
wetura (iat) eqiocs.sqlcocde; } 


[MRERAAEEREEAAERARAREEAAERREEARERERARRARRERRARERRARAREREARAREREARRDEERARERERE 
Create table to receive data poiate of Leq values 
Oaly the alustered (I,Y) paeire are ideatified here. The 


computational routines will create the remeiniag (real) 
columns and decide at run time what their ames will be. 


i 


SRAAKAARSAAAAAEHEHHAAAAREAEEREERARRAAAROREEREEREAREARARRRARERERRERRARHERAREE / 


EXBC SOL CREATE TABLE R LEG ( 
Z_COORD WOMBER WOT NULL, /* X-Coordinate of Point */ 
¥_COORD NUMBER WOT HULL) /* Y-Coordinate of Poiat */ 
CLOFPER GEO CLUB (X_ COORD, Y_COORD) ; 
@ifdet CaEncKouT 
priatf(*\aR LEQ tid", eqias.sqicode) ; 
fendit 


if ( eqloa.eqloode 6&6 sqlce.sqicode {t= DUPLICATE OBJECT) { 
maepcacea ; 
SLOUTBP (eqloa .eqlerm .sqier=mms) ; 
fprint? (dante, °\nte %e\n\t\t\t Creating Fable R LQ (ID & td)", 
elook(), sqlica.sqlerrmm.sqiermac, ASSESSMENT .i4) ; 
return (iat) seqioca.sqlocde; } 


[ARHAARARARARARERAEEREREREREREEAARAREREARERRAEEERAHEREEEAEREDRARRAEANEREREORE 
Create table to receive data points of pef values 
Bote: Only the clustered (X,Y) peices are identified here. The 


computational routines will create the remaining (real) 
columns aad decide at run time what their names will be. 


RERRARARARRAAERERARARARRARRRARERREERERERRAARARARAARARHERHRARAERARERRAERERARD / 


EXEC SQL CREATE TABLE RPS {( 
X_ COORD WOMBER WOT HULL, /* X-Coordinate of Point */ 
Y_COORD WUMRER NOT NULL) /* XY~-Coordinate of Point */ 
CLUSTER GEO CLUS (X_ COORD, ¥_COORD) ; 
@#itdef CEBCKOUT 
priat? (“\aR PSF tld", sqlas.sqiccde) ; 
fendirf 


if ( sqlca.seqicode 66 eqica.sqlcode t= DUPLICATE OBJECT) { 
maces ; 
SLOUTS? (eqlca .egqlarm.eqlerzms) ; 
fprint? (dante, “\ate te\n\t\t\t Creating Table R_PSF (ID = td)", 
Gloek(), sqloa.sqierm.sqlerrmmc, ASSES? .id) ; 
retarm (int) egqloa.sgqlscde; } 


[AAAAAAAAARAAAAARARREREERAARERAARHARARARERARRAAERAARERAAARERRERAAHERRARAHRAERE 


& * 
bd MISSIONS: Miseicas Flown in this Assesement f 
* r 


ARERAAAARARAERARERRAEAARRARAERARRARERRERERRERERERERARRRRAREEEERERENEREDORERER / 


EZEEC SOL CREATE TABLE Missrtcus ( 


133 


mt ssTOM CHAR(7) NWOT NULL, /* Mission Ideatifier a/ 


TYPE CRAR (1), /* Missica type a/ 
DASCR CEAR (60), /* Description of Mission *%/ 
SORTIR_SIZE WUMBER) ; /* M@amber of A/C in sortie */ 


#ifdef CEBCKOUT 
priat? (“\nrssIoms 814", sqlaa.sqlacde) ; 


SLOUT ("Missicas and Operatices”} ; 
Gendif 


if ( sqlos.eqlcede &6 seqica.sqicode t= DUPLICATE OBJECT) { 
ERDCAMSG ; 
SLOUTE? (eqlos .sqlerm .sqlerrnsc) ; 
fprintf (daate, "\nte %te\a\t\t\t Cresting Table MISsSICus (ID = %d)", 
Gleak{), eqiloa.sqlerm.sqlerrmmc, ASSESMEENT . id) ; 
return (int) seqica.sqlocde; } 


J AARAAAARAARARAAARRAARERAREEREREERAERERERAERERAREEARRASREAAREEREDARAREEERAERARE 


& * 
e ACTIVITIES: Population of Scurces by Missica by Aircraft bad 
« e 


AAARAARARAAARAARARESAARAAREARAHARARRERRAEARAERARAREAREREAERERERSEOREAORERERRA / 


@ LABEL CEAR(9), /* label of the “Source” */ 
M_IDENF CRAR(7), /* Identifier of mission */ 
AIRCRAFT CHAR(12), /* Specific Aircraft Meme */ 
ACTIVITY wReER); /* Imtermal Identifier */ 


print? (“\nACTIVITIES $814", eqiaa.sqlocde) ; 
Gendi.f 


if ( eqica .eqicode && eqiaa.seqicode i= DUPLICATE OBJECT) { 
EeECeSG : 
SLOUTS®? (sqica .sqlerm .sqlerras) ; 
Sprint f (dante, “\nte te\n\t\t\t Creating Table ACTIVITIES (ID = %d)*, 
cloak({(), eqlca.sqlerrmm.sqierms, ASSESSMENT. id) ; 
retura (ist) eqlas.sqicoda: } 


[AARARARRALEAEAREREEHEEEAERARERAEEERARRARERRAERAREAERERESHERRESHAEREREREDAREE 


* * 
® OPERATIONS: Waaber of day aad aight ecorties by moath ® 
f a 


RERRAARERERAREARARHAERRERRARRREARLAREAREERRERAEERERRERERAAREEERNERARARREREE / 


EXEC SOL CREATE TARLE OPERATIONS ( 


ACTIVITY WUMBER, /* Yaterzal Miss/Aircraft/Route Tag */ 
Cerra WUMBER (2,0), /* Month for this eatry */ 
DAY MCMERER, /* Daytime Operations & */ 
WwiGET WOMBER., /* Blokes Flying Wight */ 
LASTUPD DATE); /* When last modified a/ 


@ifdef CHECKOUT 
print? (*\nOPERATIONS %1d", sqlaa.sqilacde) ; 
feadif 


if ( eqloa eqisode 64 sqica.sqicode i= DUPLICATE OBURCT) { 
RD Oaasg ; 
SLOUTSP (sqicea .sqlerma.sqlerzmas) ; 
fprintf (dante, “\ate %te\n\t\t\t Creating Table OPERATIONS (ID = %d)*, 
alock(), eqica.sqlerm.sqlermc, ASSESM@aart .id) ; 
return (int) sqica.sqlacde; } 


[AARARARRAARARAAERERRARARAREERERERARRARREAEOERERRERARRRARERAREREERARERARERRAEE 
* & 
* MIR_FLIGET PARAM: Flight parameters for each sctivity by segment bad 
* * 
RAEAAEAARARRARARERERERREREREDRLERARRRARRERARRERERERREREEERRERRERREEEEERHOREER / 


Ex so CREATE TABLE MFR _ FLIGHT PARAM ( 
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ACTIVITY whee, /* Internal Mise/Aircraft/Reoute Tag */ 


FIX LABEL CEAR(12), /* MFR Mavigatica Point Id. «/ 
AL? REF 86 CHAR (3), /* Reference for altitude a/ 
aL? WRER, /* Altitude segmest is flown «/ 
PER MUMBER , /* Power setting for the seguent a/ 
s7D WRsER, /* Speed et which it is flow a/ 
Ps] WOMBER(3,0)); /* Sequence sumber of the nav peist */ 


#itder cEECcKOUT 
print? (°\anFR_FLIGET PARAM %1d°, sqloa.sqlocda) ; 


42 { sqica.sqicode £6 eqiaa.sqicoda f= DUPLICATE _ OBJECT) { 
mpcesG ; 
SLOUTR? (eqlca .eqiersm.sqlerms) ; 
fprintf (daate, °"\nte %e\n\t\t\t Creating Table MFR_FLIGET PARAM (ID = %d)°, 
alock(), eqica.sqierrm.sqliermc, ASSESSMENT .1d) ; 
return (int) eqica.seqiccde; } 


LASAARSREAAAGAARARARARESERSHRESRARRAARARAAAAERERARAEARERAERARARRARARARRADRERE 


+ 


Mn Ex? TAB: TFabulated Leq’s for each activity. For the scmeat 
there is a siagle table. When sognests can heve 
different flight paremeters the fate of this table 
should be reviewed. 


oe 8 & © 
oe 2 8 @ & 


RRRARARAARARARAAREREAALASHEREARERRERAHAAAAAEARREREREAREAEEREENARRARERRARRAES / 
EXEC 96% CREATE TABLE MOR EXP TAB (SIPELINE number (5, 6)); 


/* 
stropy (workspece.arr, “CREATE TABLE MFR_EX?P TAB (SIDELINE aumber(5,0)) As \ 
SELECT SIDELINE FROM SUPERXUSER MPR EXP TAR”) ; 


EXEC SG, EXBCUTE TGEDIATE : workspace; 
#itdeft CEECEOUT 
print? ("\niern Exp TAB tld“, sqlas.sqlocde) ; 
fenai.t 
*/ 
$2 { sqlon.eqicode £6 eqica.sqloode t= DUPLICATE OBJECT) { 
mapas ; 
SLOUTEP (sqloca.eqiarm.eqiermns) ; 
fprint£ (dante, “\ate te\n\t\t\t Creating Table MPR EXP TAB (ID = %d)", 
alock(), sqloa.eqlarm.sqlermmc, ASSESM@EWT.14) ; } 


EXEC SOL DECLARE Ti CORSOR FOR SELECT sideline FROM SUPERUSER MTR EXP ZAR; 
EXEC SQL CPEN Ti; 
4f ( eqioa.sqicacde ) { 
mpcans ; 
SLOUTS? (eqlca. sqlerrm.sqilerme) ; 
fprintf£ (dente, "\nte te\a\t\t\t Opening MFR EXP FAB (ID = 4d)", 
alock(), eqlca.sqlerrmm.sqliaerrac, ASSESSMENT. id) ;} 


if (sqica.sqlceode) break; 
Exec SOL INSERT INTO mtr exp tab (sideline) VALUES (:sidaline) ; 
af ({ eqiaa.sqicodes ) { 
BRDOMEG 
SLOUTBP (eqica.sqlerma.sqlerzmc) ; 
fprint? (dante, *\nte te\n\t\t\t Inserting Table MFR_EXP FAB (ID = %d)*, 
elock(), eqica.sqlierm .sqlermac, ASSESMEZNT.id) ;} 
Exec SOL OCOOAEIT WORK: 
} 
Exec S61 CLOSE Ti; 
} 


[LRRRARARARARRARHARARRARRARARERAHARAAEHERREAARARERARRARERAARAAEAERERERREREARAR 


a * 
* QUAL CITi and QUAL CI?2 ‘Temporary tables for citatica database queries * 
* e 


RRAAAHAARAARARARAARRAEERAEREDHAREREERRARRAEHRERAARARRARRAAARERRRARERAERRARRAR / 


EXEC SQL CREATE TABLE QUAL Citi (entry awm char (5)) ; 
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Hiséef CEBcHoUT 


prist?(°\aQUAL CIF1 tid", sqloa.sqlocode) ; 


4f ( eqlon.eqlcode 664 eqlca.sqicode f= DUPLICATE OSJECT) { 


SLOUTBa? (eqica .eqierm.sqilermsc) ; 


fpriatt (daste, "\ate te\n\t\t\t Creating Table QUAL CI¥Fl (ID = %d)°, 


aloak(), sqica.eqlerra.sqierrmc, ASSESSMENT .id) ;. 
return (iat) sqlaa.sqlacda; } 


EXEC 890%. CREATE FABLE QUAL CIT2 (entry mum char (5)); 


(itdef CEacKOur 


print? (*\aQUAL CIP2 ¢1d", sqloa.sqlccde) ; 


Gendizt 


~ 


Af ( sqilaa.sqilcode 6&6 eqica.sqlocde {= DUPLICATE CBUBCT) { 


maces: 
. 


SLOUTSP (eqica .sqierm .eqlerm~) ; 


fprint? (daate, "\ate tea\a\t\t\t Creating Table QUAL CIf2 (ID = %d)”", 


aleck(), sqloa.eqlermm.sqlermac, ASSESMAENT 1c) ; 
retura (iat) eqlicas.sqlocde; ) 


return (iat) sqiloca .eqiccds; 


} 


[AAAAARAARAERAREERRARARAAREEREAREREREERARRAARRRRAREAUERERAREEERRERRORRRREARARR 


missions .pa 
Le a A ad 


pechgnis 
pent mis 


enterzmis 


~ 


oe tee erpee ea seeeveseenseseeee ev weeseevneeceevenenvnenseene eee » 2. » 


2. |. Ldete () 
. beak () 


-—~- Routines for sissicas 


Thais file coataings: 


-- Set wp routine to select a sew mission 


-- set up routine to select a mission and aircraft 


combination for « given MTR 
-— Eater a mission for thie asseesment 


~~ Set wp routine to process «a missice and aircraft 


ocmbination for a given MFR 
-- Set up routine for entering a new missica 


-- Store an MFR Navigation Point actually flcowa ca a 


particular activity aad adwance all poiaters. 


-- Ineert an MFR Navigatica Point actually traversed 
@aring a perticular misaicn ia the database table 


of MTR segqnants flown 


-- Put up the add cperaticas window aad accept data. 


-- Expand steady yearly cperaticas ower all moaths. 
~- Verify the existance of a nissicn as part of an 


assecenent’s definitica 


-- Cancel aiseion currently pending om the databese 
~~ Commit mission currently pending om the database 


-—- Cennect an FR with a Missicn 


CRACLE access routines: 


- -ideto ()} Opem Cursor (Opens a “logical file”) 
Fetah Cursor (Reads next record frem logical file) 
Fetch Cursor (Reade next bunch from logical file 


applicable only for multiple choice copticas) 


4. ...i4deta() Cloee Cursor (Closes the logical file) 


Mamee of all Missions defined for this assesament 
QMltiple choice display option is supported) 
Operations of « particniar activity 


a Sr a a a a ar 9 


RARAARAAREEARRERARRERHARRERERAEEREARRERRARARRERARERARAAERERRARERRRERARERRERS / 


#include <stdic.h> 


$dafine SQLCA STORAGE CLASS extern /* @switch for header files 
EXEC BOL DORCLUDE SOLCA; 
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RENC SOL BEGIN DECLARE SECTION; /* B11 SOL declarations are in = *#/ 
EXEC 80%, INCLUDE hoetvars .h;: /* these header files a/ 
EXEC 96% THCIAEE Sabarris.b: 


EXEC 861 EMD DECLARE SECTION: 
Sinclude "asan.h* /* Standard ASAN Seader Pile e/ 


static missflg = 0; 


int pechgnis () 


LPRARREARAAAAARARRERAAREAAEREARERARARARAAEERERRAREREHRAAERAAAARRARRERARANHEER 
* 
pechgais -- Set up routine to select a sew missica 


Routine (1) cpems curser for fetch of all. missicas known (in this 
vereica miseicas are always local to the assesment) 
(2) fetches the firet betch isto memory 


(3) pute up “chgcumetrscreen* 


se es. S&S 8 8 
*# 28s 3s. * #@ ® © ® © 


SAASREAKARAEHAARRARAREREEARARRARRERERERERERERHADEAREERRARRERREREERERODERORRE / 


{ 
iat blakdspl(), seliste(), esbunch(), roode; 


@itder CRECECUT 
printf ("\npechgmia °) ; 
fenaie 


WHEREAMI (Screen, Window, Buttca, Detus); /* Save where you were when you */ 
stropy (oldsareen, Screen) ; /* culled this “peeude pop-up" */ 


biakdep! () : 

MEW_ SCREEN (“chomia") ; 

SOUT ("Retrieving list of miseicas") ; 
reode = selisto(); 

retura (racde ? racde : esbunch ()) ; 

} 


iat pest rais () 
[AARARARARAARERAEERERERERERERANAREOKEDRERAEAEREERARRAREERALARRERRARRARERAEROR 


e ® 
* pemtrais -- fet up reutine to select a mission and * 
* SN aircraft cembinatice for a given MIA bed 
* 2 
bed Routine (1) sete mission flage to false * 
® (2) pute up “spentmais" * 
* * 
ishalaiiahsiahahalabababebalabaleleheheheieiinininiahalaiainiaiahababalhebelalahslelelehaisiaiaiaiaiaistetaaiatialolalelgleleialeleiaialatetaaieiale’ A 
{ 

misefige 0; 


etropy (tid.arr, ac_same.arr) ; 
tid.lem = ac neme.len; 

MEW SCREEN (“spent rats") ; 
weturn (int) 06; 

} 


int emtermie () 
LRRARAAARAARARERAERARATEARAAARARAREDERAARAREARATARAAARAARAREAARRARORRERERRARE 


® * 
* entermis -- Eater a missica for this essesment e 
2 Peer] 2 
ry ; 
ahahahahababahniahababehalahahabahshahshhabeiniahabebeinatababsblaeleliaiainialedaialaiataaieiotaigtaininielelalactalel ltaotelel Lol teddy A 
{ 

dat racde: 

void exptmsg({); 


char *alock (} ; 

#iftdet CRECKOUT 
printf (“\nemtemis *); 

fendir 

if (ac_in form <= 0) { 
SLOUTRP (“7? Sortie size") ; 
UPDATE_DATUM(“numac") ; } 


misetype = toupper (misstype) ; 
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misdess.ien ~ striae (misdesa. art) ; 


EXEC SQL INSERT UOFFO missicas (missica, type, descr, sortie size) 


VALUES (:miselabl, :misetype, :misdesa, :ac_ im form) ; 


#ifdef CEECKOUT 


printf (" $id", eqlos.sqlocde) ; 


Geadi£ 


4¢ (rocde = (imt) sqloa.sqloode) { 


expOmsg () ; 

fprints (dente, °\ate emtermis: te", aloak(), sqloa.sqlerm.seqierms) ; 
=xec SOL ROLLBACK WORK; 

miseflg = 0;} 


misefig = 1;} 


EEW SCREES (oldscreen) ; 
WEWVALS () ; 
retura rocda; 


) 

iat pemtrfit () 
[ARARAAHAARRERAARAARARRARRERERERNEREREARAAEEERAARRERERAERERARORREEREARRAREEEE 
® 
* pemtrfit -- Set up routine to process a missice and e 
* a! aircraft cembiaatica for a given MPR * 


RAARHARARAAARAAAASARETEARLAARERAAAARARRARRARRARAAREARRARRAREARREARRARAARRAKRERREDE a/ 


{ 


ist canamis();, solisto(), seoliset£(), solista(), vfyaantr(); 


woid exzpOmsg(); 
char *clock({}; 


Af (vfyeastr (ac aeme.arr) / /* Do we knew how to analculate this? */ 


af 


retara (ist) eqiaa.sqlacde; 


(Imiseflg) { /* Bas a mission been entered? */ 
SLOUTA? ("Plesee Select Miseicn First”); 
return (iat) sot BOF; } 


@aftdef CEECEOUT 


print? (*\arrevioust ts %s ts", srcid.arr, misslabl arr, ac_same .arr) ; 


fendir 


Exec SQL. SELECT activity PROM activities Ivfo :activity 


WHERE 8 _LAREL = :ereaid 
AMD M IDET «© 6 [emiesilabl 
ANE AIRCRAFT = ‘ac _ name; 


@ifdeaf CEBCKOUT 


printf’ (" = 81d (code = 41d)", activity, esqica.sqlacde) ; 
St00Te (“ack”) ; 


Geadir 


if (sqloa.sqicode = SOL BOF) { /* This is a unique cambinatica */ 


RXEC SCL SELECT MAX(activity) FROM activities Info :activity:; 
#ifdef CEECKOUT 
print? ("\nLeast activity = %1d code = %1d", activity, sqlaa.sqloode) ; 
endif 
if (sqics .eqloode) 
if (eqica .sqicede = 8GL BOF) activity = 0; 
alse { 
expomsg () ; 
fprintf (dante, “\ats Paatrfit2: te", cloak(), eqiaa.sqlerm.sqlerzrc) ; 
retura (int) eqica.sqlocde; } 
activity++; 


2 


EXEC SQL INSERT DFFO activities (# LABEL, M IDENT, AIRCRAFT, ACFIVI?Y) 
VALUES (:srcid, :misslabl, :ac_name, :activity) ; 
#ifdef CEENCKOUT 
printf (“ Insert = $14", eqicaa.sqlacde) ; 
SLOUTP ("ack"); 
fends¢ 
af (eqica .eqlccede) { 
expomsg () ; 
fprint? (dante, “\nte PMetrfit}: 46", cloak(), eqlca.sqlerrm.sqierme) ; 
retura (int) sqica.sqlocde; } 
ournavpt .arr(curnavpt.len = 0] = ’\0’; 
prenavpt .arr (prenavpt.lem = 0] = ‘\0’; 
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iptri =» écurlowalt altitude; 
optri = curlowalt units; 
MEWVALS () ; 


eancuis () ; 


af (eqioaa.egiccde) { 
axpOmeg () ; 
sprint? (workepece.arr, “FAILED - %s", sqica.sqlerm .sqlerme) ; 
fprint? (dante, "\nte OPEN %e", alock{), workspece.arr) ; 
fprintf (dante, °\a\t\t\t Retrieving Operaticoas for activity %1d°, 


activity) ; 
onacmia(); | 
retura (iat) eqlasa.sqlaocde; } 
for (77) { 
solist?(}; 


af (sqiloa.sqicede) { 


if (sqloa.sqioode f= SQL BOF) { 
expomeg {) ; 
sprintf (workepace.arr, “FAILED - te", sqloa.sqlerm.eqlerms) ; 
Sprint? (dante, °\nte SELECT te", clock(), workspace.arr); 
fprint? (dante, “\a\t\t\t Retrieving Moath td Operaticas for %1d", 
active mo, activity) ; 
oancmis () ; 
} 


, break; 


} 


ops [active mo-1].day = ops day; 
ope [active mo-1] site = ops nite; 


} 


if (eqica.eqlocde == SOL BOF) { 
soliste ()}; 
EXEC SOL DELETE FROM cperaticas WEERE activity = reactivity; 
@itdeft caecxourT 


print? ("\nPrevicus data deleted %14", eqlon.eqiacde) ; 


SLOUTY ("wok") ; 


feadizr 


} 


else solista(); 
ADD_WIEDOW(“moath*, 7, 1); 
SLOUT?P ("You already heave datal”) ; 


} 
setura (iat) 0; 


} 


dat penvwaion (mame) 
[PARARARARAERARERERRARAERLANERERAERERALERRATARERERERRAREEREEANAARERNERNERRORES 


Routine (1) verifies thet the new neme is 


penmisn -- Set up routine for eateriag a sew mission 


(2) pete up the missica definitice scream aad starts it 


RRARKARARAARARAERAUHARRAEERARERERARARAERRERARAAHERRERED AHASHIAKAARAAARKERAREEE / 


char name[j; 


{ 

ghar *alock (}; 

iat rocde, melista(), mebunch() ; 
woid expOmeg() ; 


#ifdef CEBCIOUT 
prist? ("*\npenwmisn °); 
@endirc 


REMOVE WINDOW () ; 
SLOUT ("Processing New Mission Request") ; 


if (( reode © vfyMais(name)) t= SQL EOF) { /* Check for etrange things */ 
af { reode = 0) { 
eprint? (workspece.arr, “Sorry, but ts already exists", name) ; 
SLOUTS? (workspace .artr) ; 
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retura (-1);} 
expmeg (); 
fprint? (dante,"\ate Panewnis: %9", clock(), eqlca.sglerm .eqlerms) ; 
return rocde; } 


aise { 
eelietea(); /* Close list of choices a/ ; ig 
etropy (miselabl.ars, a2zbv.arr) ; /* This is the new nissicn */ 


miselabi.ies = azhv.lesa; 
misdesa.ien @ O; 


misdesc.arzr[(O} = "\0’; » 

REW SCREEN ("nisepec”) ; 

WEWVALS ({) ; 
/* WEXT DATUM("misdesc’); Removed for possible coaflist with U Bug «/ 

setura (iat) 0; } 
} 
iat artmispt () 
[PRARRAAAAAAREAERAEEARAHRERARARERERAAERAEEERERARARERENREERAEERARRAAREERRDEARD 
* t 
® axtmispt -- Store an MFR Mavigetica Point actually flown ca « * 
e re particular activity aad advance all pointers. ® 
s ry 
RAAAARARAAASAAAARARAEASARAAHERERARAAEERERARERAEERAEREERAAAREREEREEHEREEERRE / 
{ 
register iat i; 
dint insmtrpt () ; 
@#ifdef CEBCKOUT 
print? ("\anxztmiept “) ; 
fendizf 
Af (linamiopt ()) ( : 

/* Advance the Bav Point Parameters */ 

for (48 = 0; 2 < 3; S++) prenavpt .arr[i} = curnavpt .arr [i] ; 

for (4 = 0; 4 < 10; i++) prelownlt .spec(i] = curlowalt.spec[i]; 

ac pre epd = ac cur spd; 

ac pre pwr © ac cur per; 

carnavpt .arz {0} = ‘\0"; 

MEWVALS () ; 

MEX? DATUM (“curmavpt1°) ; 

} 
retura (int) sqica.seqlicode; 
} 
dnt inemigpt () 
[PRMRRERERRARERAREAEAARARRARARRAREREAREERRARERERNRAARAERARHERARRORAREREOREED 
* e 
* dasmispt -- Insert an MFR Navigation Point actually traversed e 
bed — @uring a particular missica in the database * 
* * 
RERARRAARERAAERAAHARARRAREAAEAERAAEERARARAARARERARAADRAAHARREERARARERAREEERRER / 4 
{ 
register iat i; 
woid axpOmseg() ; 

» 


stropy (a2bv.arr, ercid.arr) ; 
etrast (azbv.arr, curnavpt.arr) ; 
a2zbv.lea = strlen (azbv arr} ; 
fiteeq + 1; 


EXEC S9Ol. INSERT INTO FR FLIGHT PARAM 
(ACTIVITY, FIX_LAREL, AL? REF, Att, 
PER, SPD, SEQ) 
VALUES( :activity,  :a2bv, raptri, :iptri, 
:ac¢ cur pwr, :ec_cur spd, :f£itseq); 
§iftdef CEECKCUT 
print?®(* Insert = %14", sqica.sqiccde) ; 
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fendi¢ 

4¢ (eqloa.eqlocde) { 
af (eqlca.sqicode == EXISTS) SLOUTBP ("Duplicate Ratry”) ; 
ise expomag () ; 


cancmis();} /* This is necessary since ORACLE autcmetically rolis beck */ 
/* the iaserts already dene at this poiat | *%/ 
returm (ist) sqlos.sqloode; 
} 


iat peaddope (count) 


[RERAAAAARANAARARAERAERAARARAEREHERRAAAAAEEAAEREREERARRAHREREENEARARAREREAARE 


a ® 
* Ppeaddops -- Put up the add cperaticas window and accept data. e 
ey Ld 
* fe 


RARRRAAEREARARAAARERERERAERRERRERERGEREARHEEERERARASHERRRHEREDARRERERRAARRNE/ 


iat acount; 

{ 

if (count «= 1) ADD _WIMDOW ("daynite”, 6, 1); 
else if (count == 12) ADD WINDOW(“moath", 6, 1); 
else SIOUTP (“PSADDOPS called with bed argument) ; 
retura (int) 0; 


} 

Aut exzpmope () 
[ARARAAAAEHARARERAERRAARRAHERARARANAARAREREERERERERARHARAARORARRORERERODRORER 
a e 
° expmope -- Kxpaad steady yearly cperatioas over all moaths. * 
® ee] * 
e ® 


RARAAARAERRERERARAARAERRERAREEAREREERERRAERRER ARERR ANNERRENEHRREROReRERHAES / 


{ 
register int i; 


for (2 = 1; 2 < 12; 444) [° 
ope[i}.day = ope[0] .dey; 
ope {i].aite = opse[0} . site; ) 

return (ist) 0; 

} 


int vfymuis (name) 


[PRHAAARTAREAAAARERARERERERANEAERAREAREERERERERARRERERERARRERRRRARARRAAERRRRS 
2 


vfymais -~- Verity the existence of a mission as part 


[aa of am assesament 


Routine looks ia the assesement'’s MIsstToONS table, loads mission 
into :cid and returns sqlca.sqloode for the query. 


oss & © © 
* es 2 ©» 8 8 


SAANERRRERAAAENAREREARENERARERREEERARERRERERAREREDERAEARORRARERARERARER RANE / 


char name []; 

{ 

register int i; 
#iftdef CRECKOU? 
print? ("\avfymais *); 
fendi? 


azbv.les = strlea (name) ; 

for ({ 180; 41 < a2bw.lem; 44+) 
a2bv.arr[i) = toupper (mame[ij) ; 

aZbv.arr[i] = ’\o’; 


EXEC 860 SELECT missica 
rRom missions 
orro said 
WEERE missicn = :n2bv: 


eid arr[cid.lenj] = ’\o’; 
#ifdef CEECEDUT 

print?(" %1d ", sqlon.sqloode) ; 
fendi¢ 


141 


return (iat) sqlcaa.sqiacde; 
} 


izt cananis () 
[RRARRARERAREREAERAARAERAHARAERARERAARAAAKEREEERERARAARRERERERADRERROOREEEARER 


& * 
* cancmis -- Cancel the missica currently peadiag ca the database * 
td el ® 
& e 
* Routine always iseues a ACLLBACE e 
* ® 
RARARERARAHRASARAAAARARAERREAREREEEERAERERRRAAAREREEHAARERAKERAARRERERARENES / 
iat pemtrent () ; 


eprint? (workspace.arr, “Entry for missica %e CANCELLED’, missiabl arr) ; 
SLOUTE? (workspace . arr) ; 

miselabl .arrimiselabl.lem = 0} = ‘\0'; 

past rent () ; 

retura (int) eqilca.sqiccde; 

) 


ist savenia () 
[PRERARAARARARAAEREREARARAERARAEAAEEAEEREEEEANERREEARARERERERERRARERRAAREARRRE 


* & 
a sevemnis -~ Ccamit the-missicon curreatiy peading ca the detabase bad 
® CS * 
a . 2 
SSAEEREREEAAERESRARERAARAEHRERRERKARARRARHRERARRARAERARARERRRARRRRRARORERRERE / 
{ 


iat mtrtabi(), pestrent (); 


$ifdet CaEBcKOUT 
printf (*\ssavemis °); 
fendi’ 


for (active mo = 1; active mo < 13; ective mott) { 
ops day = ops [active 20-1] .day; 
ope_nite = ops{active mo-1] nite; 
EXEC 8GL ONSERT UNTO operations { ACTIVITY, MOMTH, DAY, NIGHT, LASTUPD) 
VALUES (:activity, :active mo, :ope_day, :ope_nite, SYEDATE) ; 
if (sqica.sqlcode) { 
maoaeeG ; 
sprintf (workspece.arr, “FAILED ~- %s", sqica.sqilierm .sqlerrs) ; 
fprint?f (dante, °\nte XNSERT 48", aloak(), workspace.arr) ; 
fprint? (dante, "\n\t\t\t storing Operaticas %d %14°, 
active mo, activity) ; 
EXEC SOL ROLLIRACE WORE; 
pemt rest () ; 
return (int) sqica.sgqlccde; } 
} 


EXEC #61. OOOMEIT WORE; 
mtz tabl(); 
pant rent () > 


retura (iat) sqiloa.sqlocde; 
} 


ast Misoconn (name) 
[ARRAREREAAARERERERERARERERRERARARARRARARRRAREARAAARARARAERERERRERRRREREERARER 
* & 
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#esese# e828 SB 8 8 8 


a Migcoman -- Ccoanect an MFR with a Mission 

. Sars 

& 

* Routine SELECTS the Miseica from the database aad leads parameter 
e Bleck. Returns en error code which indicates whether or act 

* the SELECT was successful. 

e 

Ld Hete: The existence of the mission ca the database is assued. 
. SOLCA .SQLCODE is returned and if scasere an errer 

* meseage is displayed oa the status line. 

@ 
AAERRAREAAHAEAAARERERAARAAHEREERARERERAAAAENEHERERRORRAEHARAARARAREAARAReRhh/ 
char seme[]; 

register iat i; 


amt WEW_SCREEM(), MEWVALS(), SLOUT(); 
ahar *aloak () ; 


#itdeft 


print? (“\eMisccan °); 


fendi? 


SLOUT ("Retrieving Miseica") ; 
a2bv.iem = strlea (name) ; 


fer (4 


= athv.les; 2 500; i--) a2bv.arr[i] = aame[i] © toupper (name [i)) ; 


EXEC SQL SELECT miseicn, type, descr, sortie size 


#itdeat 


rRoM miseicas 
DPFFO misslabl, :misetype, :misdesa, ac ia form 
WEERR missica = :n2bv; 


printf ("tld °, sqica.sqiccde) ; 


endif 


42 (leqlea.sqleode) { /* SBwerythiag is 0.K. */ 
miselabl.arr[miselabl.les) = ’\0’; 
misdesco .arr {misdeec.lesa) w “\O'; 
selista(); 
miseflg «= 1; 
MEWVALS () : 
MWEW_ SCREEN (oldscrean) ; 


} 
alse { 


/* Theis should never happea! But,..... «/ 


missfig = 0; 

wEDOCaNG ; 

epriatt (workepece.arr, “FAILED - te", sqlca.sqlerm.sqlermns) ; 
fprint? (daste, "\nte SELECT te", cloak(), workspace.arr) ; 
fpriatf(daate, "\n\t\t\t Retrieving Missica te", a2bv.arr) ;) 


return 
} 


(Ant) sqloa.sqicacda; 


iat selisto({) 
{AAAAAARARRERRARAAREERERRARAAAERRARREERERRERARERAARARRAARERORARERARARARERARER 


selisto --- Open cursor S81 for a list of missions that 
a belong to the curreat sesesement 


Routine executes an cpen cursor command for cursor 81 ead thea 
returns to the calling program with the ORACLE etatus acde. 


Mote: Modifications to this fuaction may impect the ralated 


functicas selistf(), ssbuach() and sslista() that fetoh 
sows aad close the cursor aad, possibly, fuacticas that 
anll these utility routines. 


a», e838 8 OP BBD 


SHARAAAAAARAARLERAERAAEAERREREERERHERERERAERERRSERERERAERERERRRARANHNREEREA/ 


( 
#itder 


print? ("“\neslisto "); 
fendi 


EXEC SOL DECLARE 81 CURSOR FOR SELECT mission 


PROM missions ORDER BY missica; 


EXEC SOL COPENH 81; 


#itdef 


printt(" Open: %1d “, sqica.sqlccde) ; 


143 


fendir 
vreturm (int) eqlos.sqiacde; 
} 


ant selistf (} 
[/PAAARAARARAAARERRARERARAAAAARARAEARAEERERADREARERHERERERERARAAERERESERERAARER 


e 
selist£ j--- Fetch a row using the cpened curser 81 for missicas 
Rd 


Routine executes an fetch command for curser 81, which is assumed 
to have beea cpened, and thea returns to the asiling program with 
the ORACLE etatus code. 


Mote:  Modifiastions to this functice may impact the related 
fuactions sslisto(), sabuach() aad sslista() that cpen, 
fetch groupwise and close the cursor sad, likely, 
functicas thet call these utility programs 


seo; @ bp ee Bee 6 8 DS 
#oe #8 e838 8 8 8 8 SB 8 8 


SANAARERARAARAAAARARRERNAEREREREREERRERERARRARAREROREADAEERERARRRARRARREARER / 


{ 

Exec OGL PETCE 81 GPTO :miselabi; 
miselabl arr {misslabl.ien] = ’\0’; 
ifdef CEECKOT 

printf’ (* Fetch: %14 °, sqlos.eqiccda) ; 
fendi 

retura (iat) eqlos. sqicode; 

} 


4at sebunch () 
[AAAAAARAREREASARARAAAARESEARAEAAERAEERARERARRARERRARERAERERRRERRARARARRRRRRER 


* * 
bad eabunch --- Fetoh a bunch (20 or whatever the size of deplmuit) bad 
* a weing the opened cursor 81 for missica list ® 
* * * 
‘ff Routine executes an fetch ccamand for curecr S11, which is assumed « 
* to have bees cpened, and thea returns to the calling program with * 
e the ORACLE states code. * 
* * 
bad Bote: Medifications to thie functice may impact the related * 
* functions eelisto(), sslistf£() and selista() that cpes, e 
e fetch aad cleee the cursor and, likely, functicas that Lad 
* oall these utility programs id 
e ® 


RARAARAKRAARARERRARRARARARRERRERERERRARAAREARERERRRERARARARARARAERERARARRARHE / 


{ 

register ist i; 

ant nrows, mrows, rocde; 
ebar *aloak(); 


EXEC SQL TETCE £1 Onrfo :dsplisult; 
arows = (int) sqica.sqilerrd [2] ; 
mrows = (sizeof deplauit) / 34; 
roode = (int) sqlas.sqloocde; 


ifdef CEECKOUT 
printf’ (" seBunach: %*ld returme %d of %d rows", sgica.sqlocde, arows, mrows); 
#endit 
Af ((roode == SQL FETCH CUT _OF ORDER) }{| (roode == sgt BOr)) { 
af ((rocde == SQL BOF) && (nrows > 0)) { 
for (i = 0; 4 < nrows; 44+) dspimult [ij .arr[deplmalt{ij].lea) = '\0’; 
af (srows < mrows) 
for (1 @ arrows; 4 < mrows; i++) deplimult [i] .arr[0] = °\0’; 


MEWVALS () ; 
SLOUT?P ("The last mission in the list is ca the screen”) ; } 
else { 
MEWVALS () : 
SLOUTP (“You ere already as far down is the list as you can go”); } 
} 
alse { 
Af (xroode) { 
DOG ; 
fprintf (dante, “\nte SSBUNCE: %e°, sloak(), sqica.sqlerrm.sqlerzas) ; } 
WEWVALS () ; } 
retura rocde; 
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dat selieta() 
[PARARRARRAARRAREARARRERARAEREREREARAERERARERNAERENEERERRAERRERRAERERARRARADER 


e * 
* seliste --- Close curser 81 for mission list Ld 
e ae) 2 
* e 
* Routine executes a close cursor scmmand for cursor Sl aad thea ® 

* returns to the cnlling program with the ORACIS status acde. ad 
* * 
* Mote: Modifications to this functica may impact the releted ad 
Lad functicas eslisto(), sebuach, aad selistf() that cpea the bed 
ad curser aad fetch rows using it and, possibly, functions ad 
bal that call these utilities ad 
® e 


CARHAAAARRARERRERARERAREREERENARARERAEAEREEREARERRRRERHERARERRRENHERERARHAR/ 


{ 
#iftdef cEECKOUT 


priatf("\asslista °); 
denait 


printf ("Cloee: %1id “, aqlon.sqloode) ; 
deadir 
return (int) sqian.sqlacde; 


iat scolisto() 


 habbababalnindiehlelaininidbeteliainittleleheittiidldt LiL Li Lit it LLic tL LiL LiLiTiriiir Trin 
* 

solisto --- Open sursor 82 for a list of cperaticas thet 
eel beloag to the current activity 


Routine azecutes an cpen cursor command for cursor 82 and then 
returas to the oslling program with the ORACLE status code. 


Mote: Modifications to this functioa may impact the related 
fuacticas eolist£() and scolists() that fetch rows aad 
GQlose the cursor aad, possibly, fuacticas that call 
theee utility routines. 


ehahaladerhaiainhahaaletalaiaiahahbahaininiaiaisinbnichalehaiainbebalalaleiaiabaiaiaiaiaiaiababdaisiatatnistaietahaletelettetetaet tallied AY } 


{ 


EXEC SOL DECLARE £2 CURSOR FOR SELECT month, day, aight, lastupd 
FROM operations WEERE activity ~ :activity ORDER BY moath: 


EXEC SOL CPMN 82; 


#ifdef CRECKCUT 
print? (* Opem: %14 “, sqlca.sqloode) ; 
#endir 


retura (int) sqica.sqlccde; 
} 


iut sclistf () 
[PERAAAARARERARRERREEERERAERAARRDEREARRERAERARDEREDRARAEERARAAARERAARRAARORED 
* 

sclist® -~~ Yetch a row usiag the opened cursor 82 for cperaticas 
—_— a 


Rowtine executes en fetch scemand for cursor 82, which is asswned 
to have been opened, and thea returns to the aalling program with 
the ORACLE status code. 


Mote: Modifications to this function may impect the related 
functicas solistc() and scolista() that open aad close 
the cursor and, likely, functions that call these utilities 


#e eee 8 82 8 BD * 
ee? 8 SS BES DS DO 


phahalalaiahahalahalaialalalahatalaiabaiabalahslelahelalatabelaletaleintalatelaleteisiatllletelalatalaieinieiiainietaietdi tect ct yf 


{ 
Exec S01 FETCE 82 DFTFO 7active mo, :ope day, :ope_nite, :timest2; 
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timect? .arr[timest2.Jen) = ’\0’; 

@itder cuacRouT 

print? (" s0list¢: 1d *, sqlon.eqlooda) ; 
fendit 

return (iat) eqlon.sqloode; 

} 


Azt solistc() 
[RARHAERAARRAARAERAARAERAAAEREREAAAERARERAAARARRARSEHAARERAARARLEREERAARARAARR 


* * 
« gecolists --~- Closes cureor 62 for cperaticas list * 
: Sams ‘ 
* * 
* Routine executes = close cursor ccamand for curecr 82 aad thea * 

® weturns to the calling program with the ORACLE status code. * 
* * 
* Mote: Modifications to this functica may impect the releted ® 
bd functions sclisto() and solistf£() that open and fetch * 
« rows from the curser aad, possibly, functices that onli * 
* these utilities n 
* ® 


RARRARAERARERAASAEAEARENSERAEERADERREERERAARAARRARARRERERAARRRERRARERAREEERR / 


{ 
Gitder CHECKOUT 


printf (“\ascliste °); 
gendie 


EXEC SOL CLOSE 82; 

#itde! CEECKOUT 

printf (“Closee: %$l1ld °, eqiaa.sqiacde) ; 
fendit 

wreturs (iat) sqica.sqicacde; 

} 


LARARARAARARREARRERAAAARARRAERERAAAAHERERAARAARRARAERERAERAERERREEARARARRARAREDE 
* 


wtr teabl - Calculate the noise/distansce table for an MYR segneat 
when the ccauputaticnal paremeters have been loaded 
MYRocan - Comnect an assessment to an MFR 


* 
bed mer. pa -~ Rowtines calculating nacise axpoeure from MFRs. * 
2 a] n 
e * 
e This file coatains: ® 
ad e 
bad isperpes - Return distance of point to line if perpendicular is * 
ba iaside line segqueat, NULL ctherwise 
® q@_mtreel - Get the 2-peremeter SEL distance apprerimatice for bad 
bad an aircraft bd 
® mts seal - Calculate the Single Event Exposure Level for an MFR * 
* sequent. . « 
® * 
® * 
* & 
* * 


AAARAEARAATRARAAAAHARARRERSREARAREERRAKRERRERRARERERRERRHRAREARERREEHEERERRRE / 


finciude <process .h> /* Sender for calls to MS-DOS a/ 
#inolude <stdic.h> 
#incilude <math. b> 


define SQLCA STORAGE CLASS externa /* twitch for header files a/ 
EXEC 96% BEGIN DECLARE SECTION; /* All SQL declarations are in */ 
EXEC 8QL DPCLODE hostvars.h; /* theee header files a/ 


EXEC SQL DNCLUDE Smbarris.h; 
VARCHAR rowid [23]; 


EXEC 961. EMD DECLARE SECTICH; 
EXEC SOL DRCLUDE SOICA; 


#include “asan.h“ /* standard ASAN Header File «/ 
double delta pwr; /* Global: adjustment for actual power setting */ 
double dalta spd; /* Global: adjustment for actual aircraft speed */ 
Gouble X0, FYO; /* Glebal: soordinates of point of observation */ 
deable X1, PYi; /* Global: ccordinates of a segemnt end peint *#/ 
Geuble X2, Y2; /* Global: coordinates of a segment ead point a/ 


Geouble isperpen ()} 


J PAARARARARARARRAERARARAREARARARARAERRREREAARAREEEERAARAARAREREREORERERERERES 
« * 


bad isperpen -- Routine to determine if the perpendicular of al 


146 


ee eeenenepeesesenepeeseenneeeeaee ne & 8S 8 


Hotes: i. 


If the Y’’ value (im the seccad coordiaste systan) 
is poeitive, a persca moving from (X1,P¥1) to (x2, 72) 


point (Z0,F7Y0) to a lise seguest (£1, PY1) - (x2, 32) 


falls iaside the line segment. 


Routine performs « translatica of the scoordinate system co that 
(x0, PYO) ie at the origin of the new coordinate system. Tt then 
rotates this new soordinate system around (XO, FTO) to a seccoad 
new coordinate system in which the X-axis is peraliel to the line 
segment. if the perpeadicular to the line segment is inside the 
seqneat, thea in this ccordinate system the X-coordinates of the 
end poiats cf the segment will have different signs. ta this 
eystem, the absolute vaius of the Y-coordinate of either point is 
the distance frem the point to the sequent. 


will observe (X0,FYO) as being to his/her right. 


The criginal scordinzates are (Z1,PY1), etc. 
The translated coordinates ere (Zip, Yip), etc. 


The translated aad rotated coordinates are (Xidp, Yidp) 


etc. to mimic the asual actational convention of 
primed and double~-primed ccordinate pairs. 


se @@e ev oR ee R HR eee He Her SHmULOUCRUUDUUCUD CU 


SARAHSAAAAAESHARARARRAARARARAGARAHARARAERRAARHERAAARRRAAERARARAEAREREREREEEED / 


{ 


double Xp0, 


Zip, Xtp, po, Tip, 2p; 


double X4p0, Xidp, E2dp, YdpO, Yildp, Y2dp; 


hypothenuse = eqrt( (x2 - X1)*(e2 - X1) + (2 - PYi)*(r2 - Pri) ); 


sinetheta 


= (2 - X1) / hypothenuse; 


coeinetheta = (YZ ~- PY1) / hypotbeause; 


Zip = x1 - x0; 
Yip © FY1L - PYO; 
p= x - x0; 
Y2p = Y2 - PYO; 


Xidp = Xip * cosinetheta + Ylp * sinetheta: 
TYidp © -Xlp * sinsatheta + Yip * cosinetheta: 
X2dp = Xp * cosinetheta + Y2p * sinetheta; 
Y2idp = -E2p * sinetheta + Y2p * cosinetheta; 


Gifdet cuncxouT 
printf (“\nSia = 87.5f Cos = %7.5f Hyp = %6.22", 


sinetheta, cosinetheta, hypothanuse) ; 


print? (“\nxO = (85.1¢,%3.22})°, x0, Prd}; 


print? (“\nx 


#eadizt 


= (88.1¢,%8.12) ¥ 
print’ ("\nx ’ = (85.1¢,%5.1£)  ¥°’ 
print? (“\nk’’ = (%5.1¢,%5.1£) 


retura ( ( (Xidp > 0) && (X2dp > 0) ) 1] 
{ (Xidp < 0) 6& (x2dp < 0) ) 


? HOLL 


: Zabe (¥2dp) }; 


iat g mtrsel() 
[PRARRAAAARERERARAESARARALARAREAEEEEERERAEAERRARARREREAAARERARERARARAREAARARAR 


® 


*e ese 8 8 S&S 8 8 SB 


g_mtreel. 
Denne 


Routine to get the MFR two-parameter approximatica 


to the SEL ~- Distance curve from the database 


Routine selects the proper profile from the detabase and loads 
the host variables. It returns the sqlos.sqicede of the select. 


Mote: An error will result if the entries in the database are 


not uniquel Ab this time no provision is made for a 
pick-and-choose approach to SEL profiles. 


147 


= (%3 .12,%8 .12)°, xi, ¥¥i, zm, Y2); 


= (85.1£,%5.1£)°, Xip, Yip, X2p, Y2p); 
X’' w (45.1¢,%5.1£)°, Kldp, Yidp, xX2dp, T2dp); 


4 le 


SARRARAAAERAAAAAAAARARRALAEHEREAAARRARAARERERRERHADRARARAHREREHEDREREHEEREEAR / 


<ImTo ipr_pwr a, ‘pr power, ipwe_ecale, 


double mtr seal (lateral) 
/PAAAARARARAAAAETAARARRERAERAAARAARAARARARAAARARAAAARAARAARARHSERAERAAARAREE 


mtr eeel -- Routine to anlulate ncise exposure at a point that 


® 
bal a is lateral to an MPR for a SINGLE specific activity 
* 
® 


ca that MTR. (Operational adjustments act made.) 


RARAAAAARAARAARAARRARRERRARARERARARRRARRERAARARRERARARARRARRARRARARARRRRERERAE / 


double lateral; /* tateral distance to track */ 

{ 

double leg angle; /* 0210 (sngle above the horizon) */ 
deuble caset; /* Rise tine paremeter a/ 
double caset_pen; /* Penalty assoa’d therewith e/ 
double seladj; /* S2L adjusted for power aad speed */ 
double etan2(), 10g10(), pow(); /* math.h routines used «/ 


/* Calculate "Pure* Propagatica-sedjusted SEL */ 


Gitdef CHECKOUT 
priatf("\nAltitude %1f Lateral tif“, ac alt, lateral) ; 
fpriat? (prs, "\aAltitude %3.01f Lateral %5.01¢*, ac alt, lateral); 
fprintf(prn, " intercept £7.31£ slope %7.31f delta ¥ 87.31£ sg %7.31£", 
pwe_iatopt, pwr slope, delta pwr, delta spd); 
#eadic 


leg_sagle = 1.758122632 + 1logi0 (atan2 (ec alt, lateral)); 


sealed} © «pwr _intopt 
+ pwe_sliope * ( 0.5 * logiO (ac _alt*ac alt + lateral*lateral) ) 
+ delta per /* Power Adjustment a/ 
+ dalta spd /* @peed Adjustment a/ 
- (leg_asagle < 1.477121238 2 /* Ground adjustment if < 30 deg */ 
(6.995 - €.606 * log angle 
+ 1.866 * log angle * log aagle) : 0.0); 


/* Calculate Rise Tine Pemalty */ 


onset = 100.0 / (1+ pow(2.7183, 10.01 - 3.62 * logi0 (ac _ speed) 
+ 2.48 * 1ogl0(ac alt) 
+ 0.15 * 1og10 (lateral) 
~ 0.0542 * selad4)); 


af (caset < 15.0) caset pea = 0.06; 
else if (caset <= 30.0) cnset_pem = 16.6 * logl0 (caset/15.0) ; 
alse caset pea = 5.0; 


@itdef CHECKOUT 
fprintf(prn, "seladj %10.41f cnset 410.41f", saladj, caset) ; 
dendizr 
retura (seladj + caset pen) ; 
) 


Set mtr _tabl () 
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LTARARARARARAARARARARERRARERRAARARAARHAEARERARERAAARRERERAERRERHARRAERRAREARAR 


* * 
* wtzr tabl -- Routine to calulate noise axzposure ~ perpendicular * 
® aS distance table (ern EX? TAB) for a specific activity * 
& a 


ri it titi iiiiiiiilititiiiiiiititiiii tit ttt. 
STi iitiiiiiiiiiitiitiTiiiiiitirit Ty) 
Ran MOTE: This routine currently aseumes that cperetions parameters tt% 
ane are fixed over an MFR. Tt muct be changed whea that is onan 
ann mo lenger true. Also UFFLEZ.FPC must thea be changed! aan 
iii iit Tri ilitifTiitifilitiiiiiivitiitTTiTriTT Tt 
RRRRARAARAARHARRARARERRERERRERRARRERREREREARERARADERARAERARAERARERRARERAERERAERE 
AAMARAAAAEAREAARERAAERAAARARRAREAEREGHEREREREERENARAAHARAAEHERARAAAKARERERAD / 


{ 

char *aloak () ; 

iat Glisto(), alist£(), alistc(), 4; 

iat g_mtreel(); /* Finds profile for this atroreft a/ 
double mtr seel () ; /* Siagle event calculatica routine «/ 


woid ezpOmag (); 


SLOUT (“Calculating MFR Exposure Fable”) ; 

stropy (tid.arr, "MIR_EXP FAB") ; 

tid.les @ 11; 

eprint? (a2bv arr, “ACTVO414", activity) ; 

a2bv.les = strles(a2bv.arr); /* Just in case activity > 9999 */ 


fSARAERARARAREAARAREAEARARAAARARHERERARARAEERERERARAAAKREARARKRRERREERARARRORRES 


a * 
* This query caly computes things for the let segment. If we start * 
iad allowing differeat cperations parameters per segmeat, thea this bad 
ad must be changed. Also see the ncte in DFFLSE. PC! ® 
* * 


SRREREAAAARRERARAEEARREEAREEERRREREREREORAARAREREAEREERRE EERE ERERRHERAR ARERR / 


EXERC SQL SELECT alt, pwr, spa FROM wtr flight peren 
THTO :ac alt, :ac power, :ac speed 
WEERZ activity = :activity AND seq « 1; 


ifdef CzEcKour 
printf (“\nAiraraft is %1f, %1¢ EYS, power = %1f sqloode = 814", 
ac elt, ac speed, ac _ power, sqica.sqiccde) ; 
fpriatf(pren, “\nAircraft is %t1f, tlf KTS, power = %1f sqlocde = %1d°, 
ac alt, ac_speed, ac _ power, sqica.aqiccde) ; 
Gendizf 


aliste(); /* Opem database cursor */ 
for (::) { 
alist? (); /* Fetch the next instance */ 
if (leqiaa .sqiacde) { 
eid.arr[oid.lea] «= '\0’; 


4f (!etramp (cid.arr, a2bv.arr)) break; /* Rave it already! */ 
elee cid.arr{0}] = ‘\0’; cid.len = 0;} /* Ho, mot that ome */ 
else if (sqlca.sqloode «= SQL MOF) breek; /* Have to areate it */ 
else { /* Proubdlel af 
expOmeg () ; 


fprintf (dante, “\nts ts", olook(), sqica.sqlerxm.sqlerrms) ; 
fprint? (dante, "\n\t\t\t Retrieving MPR_EXP TAB te", n2bv.arr}; 
SLOUTS? (“Calculstica Aborted”) ; 
aloseORA () ; 
return (iat) sqica.sqlcode; } 
} 
elista(); /* Close database carsor */ 


af (feid.lea) { /* Create a new colum in the table */ 
eprint’ (workspace arr, “ALTER TABLE 3EFR_FXP TAB ADD (te WUMRER) “, a2hv.arr) ; 
workspace.len © strlen (workspace. arr) ; 
"ifdef CHECKOUT 
printf ("\nte", worksepace.arr) ; 
fprintf (pra, “"\mte", workepece.arr) ; 
denait 
EXEC S01 EXECOTE DSCEDIATE : workspace; 
#ifdef CERCECUY 
printf ("\nAlter Table ts 614°, n2bv.arr, eqlca .sqlocdea) ; 
fprintt(prn, “\nAlter Fable te 61d", a2bv.arr, sqlaa.sqlocde) ; 


if (sqloa.sqlocda) { 
arpomeg () ; 
fprintt (dante, “\ate %e°, clock(), eqica.sqlerm.sqlermac) ; 
fprintf (dante, “\n\t\t\t Creating MFR_EXP TAB 40", n2bv.arr); 
SLOUTRP ("Caiculation Aborted") ; 
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cloeed0RA () ; 
retura (ist) sqica.sqlocda; 
} 
eprint? (workspace .arr, 
"COMMENT OM COLUM! MPR EXP TAB.%e IS ‘Operaticas ca ts by ts om mission te", 
a2zbv.are, sxrcid.arr, ac_neme.atr, misslabl .arr} ; 
workspace.len = strlen (workspece.art) ; 
@itdef CEBCKOUT 
priat?("\nte", workspecea.arr) ; 


EXEC 801, EXECUTE DGQGEDIATE : workspace; 
} 
g_mtreel {) ; 
delta pwr = (ac power - pr power) * pwr scale; 
delta_spd = 10.0 * legl0(pr_speed / aa_speed) ; 
eprint? (workspace.art, 
“SELECT rowid, sidaline, %s FROM wtr_ erp tab FOR UPDATE OF %e°, 
azbv.arr, azbv.arr) ; 
workspece.len © strlem (workspace .arr) ; 
@itdef CEuCcKOUT 
priat? ("\aPREPARE te", workspace.arr) ; 
Gendit 


EXEC SCL PREPARE Dl FROM : workspace; 
@ifde! CHECKOUT 
print£(“\n returas %14", eqliaa.eqloode) ; 
fpriatf (pra, "\ate returas %1d", workspece.arr, sqion.sqilocde) ; 
fendit 
EXEC 86L DECLARE Ci CURSOR FOR Di; 
Exec SOL OPEN Ci; 
#ifdef CHECKOUT 
printz("\ncpen returns %14", sqica.sqisods) ; 
fprintf(prn,"\nopea returas %1d", sqlaa.sqlocda) ; 
fendit 


for (;;}) { 
EXEC OOL FETCER Ci ITO :reowid, :eideline, ;:axposure; 
@4itdef cEBCKOUT 
print? (*\nFetch sideline tif returns t1d", sideline, sqica.sqiacde) ; 
{printf (pra, 
“\nFetch sideline %lf returns tid", sideline, sqlcs.sqiccde) ; 
fendit 
if ((sqica.sqlcoode) 6& (sqica.sqicode f= NULL FETCEED)) break; 
exposure © utr seel (sideline) ; 
if (rowid.lem f= 18) { 
fprintf (pra, *\nrowid length = %d°, rowid.len); 
rowid.iem = 16; 
} 
sprintf (workspece.arr, 
“UPDATE MTR_EX? TAB SET te ~ %1f WEERE rowid = ‘%s’", 
a2bv.arr, exposure, rowid.arr) ; 
workspece.len = strlen (workspace.arr) ; 
EXEC SOL EXECUTE D@4EDIATE : workspace; 
#itdet CEECKOUT 
print? (*\nts RETURNS 414", workspace.arr, sqica.sqlacde) ; 
fprintf(prn, "\nEXE D@t te RETURWS 414", workspace arr, eqlan.sqlccde) ; 
fendit 
} 
Af (eqlca.sqlooda == SOL BOF) { /* We finsished the list */ 
ZEEC SOL COOMEIT WORE; 
} 
else { 
expOmsg () ; 
fprint£ (dante, “\nte ts", cloak(), sqloa.sqlerzm.sqiermss) ; 
fprint? (dante, "\n\t\t\t Fetching MFR _EZEXP TAB for activity tid ir", 
activity, sideline) ; 
Exec SOL ROLLBACK WORK; 
} 
EZxEC 801 CLOSE Cl; 
} 


int MPRoonn (name) 

LERAARERAARARAERREAARRARRARRAREEREREREARAAEREKAERAAARERERREAEARAERARRAARRRARERE 

* * 
MFRocen -- Connect an ASAN asseeoment with an MIR 


® & 
® ene 2 
@ * 
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Routine SELECTS the MFA from the database and loads perametar 
bleak. Returns an error ocde which indicates whether or act 
the SELZCT was successful. 


Mote: The existence of the MIR om the databese is assumed. If 
any SQL errer is found, the routine returns eqilaa.sqlacde 
with aa error oa the status line. Whee the MIR exists 
the MFA Deta Eatry Screen will be displayed. To verify 
the existence of an MFR use viymatr() . 


2» eee 8 BS 8 8 © 
oa »- e+ Se PSP BP FF 


SERHREAARARAARAAEREREREAAAARERAARRERAEHRERRARAREARAARAARAERRARARRARARHEREREE/ 
char nane[]; 


register iat i; 
int EEW SCREEN(), MEWVALS(), SLOUT(), SLOUTBP(); 
ghar *clock (); 


@ifdef CxEckoUT 
priatt (°\nlerRocan °); 


SLOW? ("Switching MFRS ....°); 
azbv.lies = etrien (name) ; 
for (4 = a2bv.lem; 1 >=0; 1--) a2bv.arr[i] = aeme[i] = toupper (name [1}) ; 
EXEC 80%. SELECT label, status, type, descr, orig, sched, cwner, 
FO CHAR (date pub, ‘dd-Mea-yyyy’), 
TO CHAR (timestamp, ‘dd-Moa-yy ERZ4:MT:88") 


xIwro ‘ezreid, :ercetat, :srotype, :eradesc, :sroorig, :srasched, 


@ivtdeg CEBCEDUT 
priat?® ("tid °, sqlca.sqlocda) ; 
Gendir 


af (leqlcaa.sqloode) { /* SZverythiag is 0.K. #/ 
eroid.arr[srcaid.len} m *\O'; 
erodesc .arr (erodesc. lea] @ °\0’; 
steorig.arr({serecrig.len) = ’\0'; 
srosched .arriercached.len} @ ‘'\0’; 
etropy (laetatr.arr, sroid.arr) ; 
iastatr.lem «= ercid.lea; 
melista({); 
miont rtxt () ; 
MEW SCREEN (“mt ratry°) ; 
MEWVALS () ; 
42 ((erestat tm 'A’)) { 
eprint? (workepace.arr, "Note: Statue of this MPR is \"%c\**, erostat) ; 
SLOOYEP (workspace .arr) : } 
) 
elee { /* This should never happen! But,..... e/ 
mane - 
eprint? (workspece.arr, “FAILED - %e", eqioca .sqierrm .sqlerms) ; 
af (sqlan.eqloode f= so% BOF) SLOUTBP (workspece.arr) ; 
else SLOUTA? (“This MYR exists but is act available to you"); 
fprintf (dante, °\nte SELECT te", clock(), workspace.arr) ; 
fpriat? (dante, °\n\t\t\t Retrieving MFR te", a2bv.arr);} 
return (int) seqlaa.sqlcode; 
} 


[PARRADAARORAEARARARAEAAARAERARERRERARERRAARRAERAKEERERERERNARERERARAERRARERE 
e 
screensa.po -~ Routines to set up the ecreens for assesements. 
Seeger 


This file contains: 


~ Answers the questica: "Did the planner log ca?" 
pecdbhsek - Puts up databese housekeeping screen 

pechgass - Puts up change assesement screen 

péawasen ~ Puts up new assesment screen 

peprobst ~ Pate up problem status ecreea 

binkdepl - Blanke out the ccamon display area 


*e ee dP Pe DOP BPO Ee DD 


oe, eS 8 82 2 BS DS 


alahalatahadaiahahaiabataiaiaiabalahainbelniahalaiaiahsinialsiadetabedalaledalaleletatelniaialalaletalsialalsiotaialolatinininlaisidetsdetet te? 


@include <procees .b> /* Header for calis to ms-Dos a/ 
@inalude <stdio.h> 


fdefine SOLCA STORAGE CLASS extern /* Switeh for header files af 
RXEC SOL WECLUDE SOICA: 
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EXEC SOL REGIWN DECLARE SECTICH: /* All SQL declaratices are in *%/ 
EXEC S01, CLUDE hostvars .h; /* these header files a/ 
EXEC 9QL DURCLODE fabarris.b; 
ExXBC SOL END DECLARE SECTICH; 


fAnclude “ases.h" /* #tendard ASAN Heeder File af 
dat leggedcea () 
[PRARRRERAERARRAREERRERERARERAAAEAALERAERERARRARERRARERRERRERERERREARERRARRAE 
® ® 
* leggedca -- Routine to detamine if the planner filled in the * 
a username ca the first screen. * 
e * 
RAPPER AAAASEREARERESEREEAHRARARAAARAAAERARARAEREREREERARAEARARARERERARHAREED / 
{ 


Sdefine CREAR ZERO ‘0’ 


ahar *eloak () ; 
dat 4, 4, closeoRA(); 


print? ("called from %s", Sareem) ; 
Geadifl 


plienrosm.lies = strien(planrnam arr) ; /* Who is this perscar */ 
for {i w= 0; 4 < planrnusm.iem: i++) { 

4¢ (planrnam.err{i] > CHAR_EERO) break; 

pisarase .lea--; 

for (j = 0; 3 < plasrnaam.iles; j++) planrneam.arr[(4) = planrnem.arr[4+1] ; 
} 


$itdef CESCKOUT : 
print? (° Username = 4a is %*d characters", planrogm.arr, planrnam.iea) ; 
fendit 
af ( plasraem.len = 6) { /* Did aot enter a ammelt = {or we lost it) */ 
af (etramp (@creea, “firetecrean”)) { 
SLOUTP (“TROUBLE! ASAN has forgettem your name..... "); 
fprint? (dante, “\nte Loggedea: ASAN \"lost\" planner’s name", clock()); 
fprint?£ (dante, “\n\t\t\t ASSESSMENT name was ts", ASSESSMENT . nme) ; 
fprint? (dante, "\a\t\t\t xn2zbv.arr was te", nitbv.artr) ; 
fprintf (dante, “\n\t\t\t Screen ts", Screen) ; 
fprint? (dante, “\a\t\t\t Window ts", Window) ; 
fprintf (dante, “\n\t\t\t Detum %e°, Datum) ; 
fprintf (dante, “\n\t\t\t Buttoa ts", Buttca) ; 
MEW _SCREEM (“firetecreea") ; 


/* 
ClowseORA () ; 
exit (255); 
a 
return (iat) 255; 
ise. § 


SLOUT® (“I dou’t know yet who you are. Please enter your name”); 
UPDATE_DATUM("planrsam") ; 
VCAPITAL (Eplanrnam) ; 
ADD _WIRDOW ("password”, 15, 3); 
UPDATE_DATUM (“paseword”) ; 
VCAPITAL (password) ; 
REMOVE WINDOW () ; 
} 
retura (int) SOL BOF; 


} 
return (ist) 0; 
} 


ist pedbhsek () 
[PERAAERARAARARRAREEREARRERREREERERRRARRARERAEERERERARAAEAREEREERERREERRERHERE 
* * 
pedbhsek -- Set up routine for housekeeping screen 


* es» 2 & 
® 8 2 #8 


Routine (1) makes eure that user is known 
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& (2) makes an entry in the audit file ad 
® (3) pete up “dbhsekpgecreen”" * 
® & 


PRAARRERAARAAAAAAREARHAEAARARARERARAAARREREARERRAREREROERARRAAAERRARRARAROREE / 


4mt closeORA(), loggedon {) ; 
ehar *elock(); 


loggedon () ; 
fpriatf (daate, 
“\a\n\ate PSDBESEK: te signed ca as SUPERUSER for File Maintanance\n\n", 
Glock(), planrnmm.arr) ;: 
4f (etromp (ASSESSMENT .neme, “SUPERUSER") ) { 
a¢ (S0ocen()) { 
fprint? (dante, “4s PSORESEK: SUPERUSER connect failed\a\a", alock()); 
fprintf (dante, "\n\t\t\t %a°, sqica.sqlerm.eqierrns) ; 
SLOUTSP ("SUPERUSER access demied. Bot good...... "}: 
GLo#e0RA () ; 
exit (256) ; 
} 
} 
RSW SCREEN ("dbhsekpgecreen”) ; 
retura 0; 
} 


peahgass () 


[RMARAAARERRARGADRENAHERARAERRAREAAARERERERERAERARORERARERARRRERERARARRARARRD 
e 
pechgese -- Set up routine for change assessment screen 


Routine (1) opens curscr for fetch of CRACLE usernemes 
(2) fetches the first batch into mamory 
(3) pute up “*ahgourasscree’” 


*ss ©» &# 8 & 
@-eeeses 8 & 


SRAAAARAAARARAARALERAAARAERHRARRERAANRARAEREREAEAERRAAERERSERRERDRARARREERREER / 


{ 
dat binkdepl(), silisto(), ubunch(), roode; 


@iftder CEBCKOUT 
priat?(*\apechgass °) ; 
bendif¢ 


binkdep1l () ; 

MEW SCREEN (° chgcurasscreen") ; 

SLOUT ("Retrieviag ASAN’« table of ccatents”) ; 
xroode @ ulisto(); 


int penwasen (name) 
[RAARARARERARARRRRARARREARERRRARRRAREERAERRAAREAREREERHERRARRARARRRANERERER EE 
* 

peawasen -~- Set up routine for new assesement screen 


Routine (1) varifies that the new neme is unique. 
(2) creates the new ORACLE user and tables for this 
assoescument. 


Hotes: i. When routine determines thet it is stuck, closecRA 
is called to terminate the executicn. 
2. Execution is terminated when this routine is called 
without being sonnected to ORACLE. (Ome should act 
be able to get caeself into this predicament.) 


eaestenpvpnepepeeseneneesn ss 
oe, @ PP eRe He Se ES DD 


REAAARAAAARRAAGARSRERRAARAAARRAERREARAERARRARRERARRRRARAADAEREREAREDEREREERE / 


coher amme{j: 

{ 

Ghar *aloak ({) ; 

int roode, AZANcenn(), intlse(), BroLlORA(), SUccan() ; 
dat ulisto(), ubunch({), wlista(); 


woid expOmag () ; 


@itdef CHECKOUT 
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priatf ("\npeawasen °); 
fendif 


RMMOVE WINDOW () ; . 
SLOUT ("Processing Mew Assesment Request") ; “ 


Af {( roode w= vfyOid(neme)) f@ QL BOF) { /* Check for etrange things */ 
° 4 ( roode == NOT _LOGGED_OM || rocde == SQL BAD Logom) { 
eprint? (workspace .arr, 
"?8newass: You are sot consected to ORACLE! -- FATAL"); 
SLOUTS (workspace .arr) ; 
fprict? (dante, “\ate te°, alock(), workspece.arr); 
ezit (25S) ;} 
if ( racde =m 6) { 
sprint? (workspace.arr, "Sorry, bet te already exists", name); 
SLOOTBY (workspace .arr) ; 
retura (-1);} 


ezpOmsg () ; 
return roeoda; } 
else { /* This is where you land whee everything is 0.K. */ 
ulieta(); /*% Cloee the list of choices */ 
teode @ arolLlORA (name) ; /* fry to get this cas added *%/ 


af ( rocde ) [{ 
eprint? (workspace.arr, “FAILED -- %e“, sqlas.eqlerm.sqlermas} ; 
fpristf (dante, °\ate te FATLED to enroll", clock(), nama); 
fprint? (dante, “\a\t\t\t %e", sqlcoa.sqlerm.sqlerzms) ; 
2£ (#0ocomn()) { 
sprint? ( workspece.arr, “PSNWASEN stuck: %ef", 
sqica.seqierrm.sqierrmc) ; 
ROUTE? (workspace .arr) ; 
fprintf? (dante, “\ntePSWWASEN stuck: SUPEKUSER re-ccanect failed", 


wer it 


Sloek ()); 
fprintf (dante, “\n\t\t\t %e°, sqlan.sqlerrn.sqlarrmnc) ; 
GLOS@ORA () ; 
exit (255) :} . 
af (fulisto()) { /* Recower by reinitializing screen */ 
‘s wbunch () ; 


if ((rocde == SQOL_RBAD LOGOM) |{/ (roode a WO _IDEWPIFIED_BY)) { 
sprist? (workspace .arr, 
“FAILED -~-- Are there perhape speces in \°%ts\"?T*, name) ; } 
SLOUTS? (workepace.arr) ; 
} 
else { /* arollORA() executed ©.K. Mazt */ 
af (!imtlee()) return 0; /* create the ORACLE tables needed */ 
ifdef cascaocr 
priatf? (“\asemethiag major is wreag. Code = %4", roode) ; 


SLOUTSP (“Initialieestion terminated abnormally”) ;: 

SLOUT? (eqica.sqlerrm.eqlerras) ; 

SLOUT? (“This should be fized before emtering data") ; 

Sprintf (dante, “\nte Initializstion did nct complete normally", cleak()) ; 
Sprint? (dante,” due to\n\t\t\t 46", eqica.sqlerm.sqlerzmes) ; 

Sprint? (dante, "\a\t\t\t This problem should be fized before proceeding”) ; 
fprintt (dente,° with\n\t\t\t data entry for te", mame); 


} 
} 

} 
iat peprobet () 
LERAARARRAERERHERRAERRERERERAAREHERRERAERARERERRERARARERERENHEARARARARAREREOR 
* 

peprebet -- Reutine to set up the ASAN Status Screen. ‘This 

wermnemnentas displays the ASSESSMENT structure. If SUPERUSER ° 


is the current user, the sywtem loads the last 
active assesment first. 


es * #8 © 
2 es. » 8 8 & 


RAAREARARARRAEEERAREEREREARERERERRARERERERERRERERERERARARAERRERERARRRARERREE / 
{ 

iat aloseORA(), lastsese (), leggedea (), racde, etatusfiag; 

Ghar *aloak () ; 


gitdef CEBCKOUT 
printf ("\npeprobet *); 


fenair 

leggedoe {) ; 

42 (fetremp (ASSESGMENT name, “SUPERUSER") ) { /* Not COMNECTed 7 a/ 
etatusflag = lastsess(); /* Get last seseion a/ 
4% (etatusflag = 0) { /* Found 4t! a/ 
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REE SOL SELECT username /* Find the name of the */ 
TRoM sysuserlist /* last aseesement a/ 
IwzO 0: uZbv /* worked oa a/ 


prantf(° $id", sqica.sqicodse) ; 

fendizt 

4¢ (eqica.sqicede == SQL Zor){ /* Trouble ja River Ccity.... */ 
SLOUTBP (“PSPROBET detected logbook viclatica. ID = td", usernc); 
Sprint? (dante,"\nte PSPROBST detected logbook viclatica. ID = #4", 

aleck(}, usernc) ; 

GloseORA () ; 
exit (238) ;} 

roode = ASANccnn(a2bv.arr); /* Sign ca as that last assesanent */ 


Af (reode) { 
SLOUTE? ("AZANocan error act trapped”) ; 
mepceasG ; 
SLOUT?® (eqlce. sqiertm .sqierrsc) ; 


cetern racde; /* AZANocconaa will have pet wp the proper screen */ 


} 
else { 
Af (stetuefleg == SOL BOF) { 
SLOUTBP ("Ho work ever deae yet: You asa caly start a new one"); 


binakdspl () ; 
MEW_ SCREEN (* chgcurasecreen") ; 
vetura 0; 
} 

e@=zpOmag ({) ; 

return statusflag; 

} 

} 
alse { /* Whee you are already connected to ASAN as a reguiar user */ 


/* You YOURSELF are now the last user asd the time is NON! */ 


stropy (plaarist arr, planrosm.arr) : 
EXEC 801 SELECT TO CHAR (SYSDATE, ’dd-Mon-yy EE24:MI:88’ ) 
FROM dual into :lastdate; 


MEWVALS () ; 
MEW SCREEN (“probetatscrean”) 7 
vetura 0; 
) 
} 
dat blakdsp}. () 


[LAARAARARARAAAERERERERERAEERAARAREARRARERAEREAEAEHEAEARAHEERAARARRARRAERRARRER 

e 

blnkdsp1 -- Reutine to blank ost the ccmms display sree. 

<a Thies ie a eafety preceutica, sinoe if the list 
to be displayed is empty, whatever was left from 
the previous list would show. This is because 
the "bunch" routines don’t “remember” how often 
they have been called and so don’t blaak cet a 
display whea they rua cut of datai 


#*2s; 2s. #2 8 8 8 
e»eseeeeaeses & ® 


ARAAAAARAAAAEAERARRAAERERARRAAERERERERERERARREREREHARERERAARAERERRARARERRRRR / 


{ 

register int m, 4; 

me (sizeof dsplmuit) / 34; 

for (4 = 0; i<m; i++) { 
asplmait [i] .arzr[0] = °\0’; 
dsplazit [2} .lea = 0;} 

MEWVALS () ; 


JRAERRAARAARRARAAAAARARERAAERERERRAERERERREREAEEAERARERAAERARARAERRERARREROEOR 
e 


* 
* ecreensm.pc -- Routines to set up the ecreens for Mie. * 
® SSS e 
* * 
* This file ccatains: * 
* * 
bad pemtrest - Puts up screea to work with MFRs * 
ad pechgatr - Puts up screen to select a new MIR ad 
* penwetrn - Pute up screen to define a new mtr al 
e pemisreq - Puts up screen to define mission requirements * 
e mketrtxt - Make a tertbloak of an MYR’s Navigation Point weer deta * 
® entatrpt - Starte the MYR entry precess « 
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Pe te et ak te i me 


| 
| 
i 


axtatrpte 8 - 
fast rcpt - Insert an MPR Bavigatica Point into the database 
vfyacstr 4 ~ Verify existence of aircraft data for MFR caloulatica 
viymatr - Verify existence of a MPR ca the system 

eancatr - Cancel the MFR currently pending om the database 
saventr - Commit the MPR currently pendiag om the database 


CRACLE access soutines: 


1. .. diste() Open Cursor (Opens a “logical file") 
2. ..-List£() Fetch Cursor (Reads next record from legical file) 
.. bunch () Fetch Cursor (Reads next buach from logical file 
epplicable caly for multiple ahoice opticas) 
4. ...dista() Close Cursor (Closes the logical file) 


.+. @ met - Bames of all acosssible MPRe (Alphabetianl order) 
».. @ wtt - Segneante of a perticular MFR 
-.. @ mat - All user informatica for a particular MFR 


®- Aeterisk indicates that multiple choice optica is 
supported fer this set of routines. 


ee ee ee ee ee ee ee 
oe pe e2P BP Se RoR Re ee Ree Re eee eS PD 


RERAERERHAAEARAAEAERARAAAAERAAAARAARARRAARERREREEEARERANRARAREARRAREERERREREE / 


#imolude <stdic. b> 


define SOLCA STORAGE CLASS extern /* @witch for header files a/ 
Exec SOL INCLUDE SOLCA; 

KXEC SOL BEGIN DECLARE SECTION: /* All SOL declarations are in = */ 
EXEC SOL DRCLUDE hoetvars .h; /* theee header files «/ 


Exec SQL UNCLUDS Snharris .b:; 


EXECS S61 ED DOSCLARE SECTION: 
@iacliude “asean .h* /* Standard ASAN Reader File a/ 


peut reat () 


[PARCARERREAAAREREENEAEDAARAORRORRORERORARERRRARER SESE SOREEEHOSERAAAERAERORR 
2 
pemtreat -- Set up routine for "MFR Data Entry screen” 


Routine fiads last MFR known to have beea worked ca that is “good” 
(i.e. aot one that has been abandoned during eatry) makes that the 
curreat noise source and strid aad puts up the screen. 


a es; *® 8 & & » 
*o* @ @ 2 © 8 8 


RRAARARRARAARARARAAAAREREAARRARERAREREREDARERPEREEAREREEEDAAEEREREEERAERARERE / 
{ 

char *alock () ; 

void expdimasg() ; 


#itdef CRECKCUT 
print? (“\npemtrest °); 
fendiz 


EXEC SQL SELECT label, type, status, descr, orig, /* Phe laundry list */ r 
eched, owner, TO_CRAR (date pub, ‘dd-Moa-yy’), 
TO_CEAR (timestamp, ’dd-Mon-yy EE24:MI: 88’) 


FROM scurces /* the list of accessible scurces */ 

TIFFO texraid, :srctype, :sradeec, :sroorig, » 
:erceahed, :srcoowner, :sropdate, :sroedate 

WHERE label «= : lagtetr . #* for this name aad */ 
AMD type = ‘1’; /* which is an MIR a/ 


#itdef CEECKOUT 
priatft(" *lid ower $d", sqloa.sqlocde, srocwear) ; 
feadizf£ 


Af (eqloa.sqicode) { 

if (sqica.sqlicode ow SQL BOF) { 
eprint? (ercdesc arr, "There are no MFRe active for %e", ASSESSMENT . name) ; 
arodessc.len = strlen (ercdasc.arr) ; } 

alse { 
HDOMSG : 
fprinat? (dante, 
“\nte te\n\t\t\t looking for MPR te in Source Library for 4d", 
Gloak(), sqlca.sqierrmm.sqlerrmeac, aZbv.arr, ASSESSMENT . id) ; 


expameg {) ; 
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retura (iat) eqica.eqiacde; } 
} 


alee { 
ercdesc arr {srodesa.len}) = ’\0’; 
sroedate.arr[srcedate.iea} w ‘\0’; 
erapdate.arr{sropdate.lem] = ’\0’; 
erceched.arr{srosched.leaj] = ‘\0’; 
sroorig .arr[sreorig.leaj = ’\0’; 
ereid.arriercid.jem}] = ’\0';} 

MEWVALS {) ; 

NEW SCREEN (°mt-ratry”) ; 


zetura {iat) sqloca.sqiccda; 
} 


pechgntr () 


[AAAAAARADAAAARERERERARAARARRALEERARARARADRERAAAHARARRARARERRRERAARREREERARRE 
* 
pechgutr -- Set up routine for screea to change to new MIR 


Routine (1) cpens cursor for fetch of all MFR names known to systen 
(2) fetches the first batch into mamcory 


(3) pets up “abgcurmtrscrem’” 


se 2 8 8 @ & 
a2, 2? 2 @® 2 8 8 


PREAAAAARAAARARARHARRARARRAAARARRARARRARRARAHAERARAARARARERRARRAERARRARRARARR / 


{ 
int Dlakdepl(), mslisto(), mebunch(), reode; 


#4fdef CEECKOUT 
print? ("\apechgutr °) ; 
feadizf 


blakdep! {) ; 

MEW SCREEN (“chgcurmt recreen”) ; 

SLOUT (“Retrieving ASAW’s list of accessible MFRs") ; 
soode © aslisto() ; 

retura (rocde ? rocde : mebunch ()) ; 

} 


iat penwet ra (asme) 
{AAAARAARARAARRARARAARAARRARERAERRARREAREREEEERERERERRARARARRARARERAREARERERR 
2 

peawetrn -- Set up routine for new MYR extry screen 
| 


Reutine (1) verifies that the new name is unique. If act, the 
reaseon (whether it is already om your list or sacther 
aseesement already has exclusive use of it) is shown 

(2} puts up the MFR dafiaition screen and starts it 


#ses spe 8 2 DD 8 
eoeseess se 8 & 


RAARERAARERAERARARRERARARRRARRARERERRAAERAARERERARRAARRERRARGRRREERRRAERRARER / 


chaz name [] ; 

{ 

char *aloak (); 

fiat roocde, melista(), mabunch (); 
woid expOmseg(); 


#ifdef CERCKOUT 
printf ("\npeawatra °); 
fendi? 


REMOVE _ WINDOW () ; 
SLOUT (“Processing New MPR Request") ; 


if ({ soode = vfytetr(neme)) [t= 86% BOF) { /* Check for strange things */ 
if ( eacde om 0) { 
eprint? (workspace.arr, "Sorry, but %s already existe", mame); 
SLOUTRP (workspace .arr) ; 
return (-1);} 
if { rcode == DUPLICATE OBJECT) { 
REC SQL SELECT username 
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rem 8 sysuseriist 
uwTo :€34 
WHERE userid = :sroowner; 
tid.arr[tid.lemj = ’\0’; 
epriat? (workspece.arr, 
*gorry! %e already \"owns\” %s*, tid.arr, name); 
SLOUTBP (workspace. arr) ; 
retura (-1);} 
exponsg () ; 
fprintf (daate,°\ate Pinewstr: %e", clock(), sqioa.sqlerm.eglerzs) ; 
erosteat = ‘U’; 
zetura rocde; } 


else { 
moelista();: /* Close list of ahoices e/ 
etrapy (ercid.err, afbv.arr) ; /* This is now the utr name */ 


ercid.ies = a2bv.ien; 
EXEC SQL SELECT TO CRAR(SYSDATE, ‘dd-Moe-yyyy’ ) 
FROM dual UFFO :srepdate:; /* Suggest a date of Publ. */ 
srapdate art (sropdate.lesa] = ’\0'; 
#ifdaft CEECKOUT 
print? ("\sDATE (sqloode » %1d) tu %e", eqica.sqlocde, 
srcepdste.les, sropdate.arr) ; 
fendiz£ 
srodesc.lisea = 0; 
srodesc.arr[0] = ’\0’; 
erceteat = ‘A’; 


MEW SCREEN (“at rdefinescreea”) ; /* Pet up deta entry ecreea */ 

MEWVALS () ; 

return (imt) 0; } 
} 
int pemisreq() 
[{PREAARRARRARARERREREARRRARREERRRERRERERAEARREREESEEERORAAERREREHRERRREERORRR 
* * 
ad pemisreq -- Routine to set up the Missica Requirements Screea. * 
* 2 
ARARAAARARERRAAAARAAAAARARAAAARARERAORARAERERARRAREAAAERRARERSESCHARERRSARARE / 
{ 


iat BEW_ SCREEN (); 
#ifdef cEacKouT 
priat? (°\npemisreq °): 
fendir 


MEW SCREEN (“misereq”) ; 
retura 0; 


} 


int mkt rtxzt (} 
[PARAAAAAAEAAANAERERERAEAERAAEEERARRAREREDRAERERRESEEREARERARERERRRAEERARRERR 


® ot 
* aketrtszt -- Create a textbloak of an MYR’'s Ravigetion Points ® 
* —— weer information (Identifier, Fiz info, etc.) * 
® * 
RARRARAAAAAARARAAAEERAEERERAGEREREEREREEERAAEAREREERESAREAERRAEERERARAREREED / 
{ 

char *oloak ({); 

FILE *fopen (} ; 


ast 1, 4, mtlisto(), mtlistf#(), mtlista(), faloese(); 


#iAtder cCEECKOUT 
print? ("\nmketrtxt "); 
endif 
Af ((txztbikf = fopen (“tztbik\\atr.txt",“w") ) == NOLL) { 
SLOUTSP (“Error opening file for help window"); 
fprinté¢ (dante, °\ntse sould act open MFR taxtbloak file for %d", 
alock(), ASSESM@EEWT .id) ; 
return (int) DUPLICATE OBJECT: } 


fprintf(txtbikf, ° MWavwigatica Points for %s are:\n\n", sreid.arr) ; 
mt listo (); 
42 (leqlca.sqlocde) { 
for (;;) { 
mtlist£(); 
af (eqica.sqlocde) break: 
for (iwercid.laa, 3 = 0; 4 < a2bw.lem; i++, 4++) 
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prenavpt .ars[{j] © a2bv.arr[i); 

premavpt .arz[4j) = '\0’; 

Sprints (txtbikf, *$-d4e%-Se %03d/%03d %-128 $024/%02d\n°, 
prenavpt arr, prefixid.arr, prefixrad, prefixdist, 
prefiztyp.arr, prewidleft, prewidrighkt) ; 

} 


if (eqica.eqicode t= sgt BOF) { 
mapceasa : 
Sprints (deate, 
“\nte te\a\t\t\t leokiag for MER segnents in MYIRSEGMENTS for %d*, 
Glock(), sqloa.sqlerm.eqlerme, a2bv.arr, ASSESSMENT . id) ; } 
printf (txtbixt, "\e — MD om\n\a\a\a\0°); 
wmtlistea (); 


Lalcse (tztbikf) ; 
wetern (int) eqiloa.sqlccde; 
} 


int 

LARGAEREAAREERAAEHERAERAARERRERAREDAAREERERNAEHRERRERRRARERDAANERREREORRARARAS 
@ * 
e eatutrpt -- Inserte the originating and echeduliag activity ia bed 
e re the SOURCELIST aad pops up the wiadew for eateriag Ld 
* MFR navigetica points, * 
® * 


AARAAARARRRAARERARERREERRERERAARNERARHAENER AAAAKARAARARARARRaRARAKAARERERARES / 


{ 
ahar *oalock() ; 


#4fdet cCEBCEOUT 
print? ("\neatutrpt *°); 
Gendif 


Exec SOU. SELECT 7O_CRAR (SYSDATE, ' dd-Moa-yy ME2 4 :MI: 88°) 
FROM duel IFTO :sroedste; /* Bow %/ 
Gitdef CEECECUT 
priat?’(" DATE = 41d °, sqloa.sqlocde) ; 
sendir 


etodesc.len © strlen (srodesa.arr) ; /* While the izterface knows, a/ 
sroorig.ien « striea (eroorig.arr) ; /* ORACLE doesn’t thet know yett */ 
erceched.lesn = etrles (srosched .arr) ; 


42 (etremp (ASSESSMENT . nema, “SOPERUSER”)) { 
sroowner = ASSESSMENT .id: 
EXEC SGl, INSERT FTO myscurces (LABEL, FYPE, SEATUS, ; 
DESCR, ORIG, SCHED, OWNER, DATE PUB, TIMESTAMP) 


VALUES (:sroid, /* Meme given to this MFR a/ 
rir, /* Code identifying mPns a/ 

:erastat, /* Checlescence/Applicability a/ 
:eradesa, /* BZaglish Description a/ 
:ereorig, /* Originating Activity a/ 
:srosched, /* Sobeduling Activity n/ 
:ercowner, /* This assesament’s id a/ 


TO _DATE(: srapdate, ‘dd-Mon-yyyy’), /* Date of publ. */ 
TO_DATE (:srcedate, ’ dd-Mea-yy BR24:MXI:58'));} 
alse { 
ercowner = 0; 
Exec S01 INSERT GOFTO noise sources (LABEL, FYPE, STATUS, 
DESC, CRAIG, SCEED, ONNER, DATE yous, TIMEsSTAP) 


VALUES (:srcid, /* Nama given to this MIR */ 
‘a, /* Codes ideatifying srrs a/ 

:exastat, /* Cbeclenscence/Applicability a/ 
:eradesa, /* English Desariptioca a/ 
:ereorig, /* Originating Activity e/ 
‘ercached, /* Scheduling Activity «/ 

woLL /* SUPERUSER doesn’t mese around! a/ 


FO_DATE (:ercpdate, ‘dd-Mon-yyyy’), /* Date of publ. */ 
TO _ DATE (: sroedate, ’ Gdi-Moa-yy ME2 4: MI: 88'));} 


@4fdef CHECKOUT 
print? (* Insert @ %1a", eqiaa .eqloode) ; 
deadir 


af (eqlca.sqlcode) { 
sprintf (workspace arr, "FAILED ts", eqica .eqlerm .eqlermusc) ; 
SLOUTEP (Sworkepece.arr[7])}; /* Track errors other than date coaversicag */ 
if ((eqlca.eqlacde < ~1899) I} (sqlaa.eqloede > -1800)) 
ZMDOMBG ; 
fprintf (dante, 
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eee a me A pe ee ee oe 


“\ate te\n\t\t\t entering MFR te into Scurce Library for ¢4", 
Glock(}), workspace.arr, ercid.arr, sroowner) ; 


srostat = '0’; /* Leave a special code to prevert committing MRI */} 
{ a 
ercetat = ‘1’; /* (@t412) looks itke a good MFR to mel */ 


MEW SCREEN (°defacdst rscreen") ; 
curneavpt.arr[i] «= '\0"; /@ tnitialize variables */ 


prenavpt .ers [0} = 
prenavpt .len = curnavpt.len = 0; 

prefizid.arr [0] = curfizid.arr[O] = ’\0’; me 
prefizid.lea = cerfizid. len = 0; 

prefizread = curfizred = 860; 

prefizdist = wurfinzdist ~» oO; 

prefiztyp.arr[O}] = curfixtyp.are[0] = °\0’; 

ournavpt .arr[0] @ ‘A’; 

stropy(show.lat," ..2...’..\°H"); 

etropy (ehow.loa,”...z..."..\°R"); 

eat . lat [0} = eat. loa [0] m= “\O'; 

etropy (prehighalt .spes,"..... 28"); 

STACTY (prelowalt spec, *.. AGL); 

prewidlett = gurwidieft = Oo; 


iptril = écurlowalt altitude; /* Set pointers for ORACLE UNSERTs later */ 
iptr2 = écurhighalt. altitude; 


: 
TETTTTT 
5 


retura (int) eqlon .sqlocde; 
} 


fat axtetrpt () 

[AARARARAAARAAERAERRERERERRARAAARREREEARARERERERREREERHERARERARAAHERERAARNERE 
* * 
* axtetrpt -- Store as MFR Navigetica Point and advance the - al 
bad ST current HAV POLFT to be the previcus. ad 
* a 
SAAR ARAARERARERARRAEREDEEOEEREREREEREREAERRERRRARREREREEREERREEERRERRHEREEED / 


feadir 
af (finemtrpt ()) { 
/* Advance the Fav Point Paremeters */ F 
for (4 = 0; 4 < 3; Att) prenavpt .arr [i] = curnavpt .arr (ij; 
for (1 = 0; 4 < 3; 44+) preartcc.arr[i] = surartocc.arr [i]; 
for (4 = 0; 4 < S; 44+) prefizid.arr [1] = curfirzid.arr{i]; - 
for (420; 4< 10; 44+) prelowalt.spea{i] © curlowalt.spec[4]; 
for (4 = 0; 4 < 10; 4++) prehighalt.speafi] = curhighalt .spec [i]; 
for (2 » 0; 1 < 12; 14+) prefixtyp.arr [1] = curfiztyp .arr[ij; 
for (1 = 0; i < 14; 14+) ehow. lat [4] = ent .lat [i]; 
for (4 = 0; 4 < 14; 44+) show. loa[ij = est .loa[i]; 


/* Bleak out the Nav Point Parameters */ 


curnavpt .arr [0] = '\0'; 
eat . lat [0] = ‘\o'; 
eat .loa [0] m *\Or; 
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ent... letitude 
ent. . loagitude 
ourfizsred 
aurfizdist 


s 
‘ 


RARTE 
—_ 
COT EARTE; 
= 

Oo; 

Oo ; 


MEWVALS {)} ; 
) 
retura (iat) eqlos.sqlocde; 


} 


dat inemtrpt () 
[/theane RAERARARAAARARAARRAASAESEARARARARARARARAARRARAARAARAARAEARAHARERAESRARRAAREAR 


& ® 
* dnemtrpt -- Insert an MFR Wavigatica Point into the database ® 
* SS ® 
a a 
RERAAARRARRARRARERAAARAAARAEAEAAEREARARAAERRRRRARRARERRERRERSREREREAERERRARRES / 
{ 

4ut canautr (} ; 

register iat i; 

void expomsg {) ; 


printf (“\ninemtrpt °); 
feadiz 


4f (Coomzute (Semt)) return (ist) -1; 
strapy (azbv.arr, srcid.arr); 


etroat (a2bv.arr, curnavpt .arr) ; 
azbv.lem @ strlea (nzbv.arr) ; 


(PIX LAREL, PIOOR_3EF, CEILING REF, FIL ID, 
rrxX TYPE, aARKS, FIXZ_LAT, wIXx_tXm, 
WX RAD, FIX Dist, FLOOR, Cera, 


priatt(" Iaserti © $14", seqlos.sqlacde) ; 
Gendiz 
1f (eqloa.sqlecde) { 
if (eqlca.sqiccdea == EXISTS) SLOUTSP ("Duplicate Mavpoiat Id"); 
else exponsg() ; 
canamtr();} /* This is necessary since ORACLE eutcmatiaally rolls back */ 
/* the inserts already done at this poiat 1 «/ 
alee { 
EXEC SQL INSERT DrFo MAVPODFTA( FIX LABEL, X, ¥, LAT, LOW ) 
VALUES ( :n2bv, :dptri, :dptr2z, :dptr3, :dptré); 
@4fdef CaBCKOUT 
printf (" Insert? w $14", sqioan.sqiccds) ; 
Penadizr 
af (sqica.sqioode) { 
exzpOmag {) ; 
if (eqica.sqlwarn[0]) expowrn() ; 
canamtr();} /* ORACLE automatically rolle beck */ 
/* inserts after this occurs | a/ 
} 
return (int) sqica.sqloacde; 


} 


iut vfysastr (name) 
[EAARARERAAARAEAREAAERAAAEEEERARERARARAEEERAERAREREDERRARERRERKEERARHERRERAEE 
* 

vfyeamtr -- Verify the existence of aircraft data for 
—— MTR calculations in the database 


Routine looks in MFRSELTAR (a view on a EEADQUARTERS table), loads 
Ppr_pwria with the power units for which we have data fpr the aircraft 
aad returns sqica.sqlicode for the query. Serco means MFR axists, 

SQL EOF means it does nct, all cthar values indicate an SOL error. 


*# 2* &#@ oo 8 2 8 
*eses see 8 D © 
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SHAAERERARAAARARRARHEREAREREREERARRARERERARARARAARARARERARRRERRRARARRERARRER / 


azbv.iles = strlen (name) ; 
for ( 180; 1 < aZzbv.les; i++) 
a2zbv.arr(i) = name[i] = toupper (mame [i}); 
Ppr_pwe_u.arr(O] = “\0’; 
pr_pwr_a.les = 0; 


EXEC SOL SELECT power units /* See if aircraft power mits */ 
FROM wtrseltabd /* ere in the list of aircratt */ 
Tarre {pr _pwriu /* for which we have MFR data */ 


WEERE airereft © :azbv; 


@iAtdef ceEcnour 
print£(" %id te powar in %e", sqlca.sqicode, a2bv.arr, pr pwr «.arr) ; 
fendit 


af (eqiana.egicode) { 
if (sqlca.eqicode ow SOL BOF) { 


eprint? (workspece.arr, "MFR Calculation act supported for ts", a2zbv.arr) ; 


SLOUTS? (workspace .arr) ; } 

else { : 
mpc : 
fpristf (daate, 
*\nte ta\a\t\t\t looking for ts in MYRSELTAB for %td°, 
sloak(}, sqica.sqlerm.sqlermac, azbv.arr, ASSESMMENT . id) ;: } 

} 

else { 

Pr_pwr_u.arr[pr pwr u.lem}] = *\0'; 

for ( 180; 41 < ntbv.len: 4++) 
ec _neme.arr{i] = atbv.arr[i}; 

ac nseme.lea = i; 

ac _asme.arr[i} © °\0’; 


EXEC SOL SELECT power, speed /* Lead the reference ccaditions */ 
Fro smtreeltab /* es initialization for this */ 
IvmTO 80 :a0_cur pwr, :ec_cur_spd /* Adreratt/Missican 8 *%/ 


WEERE aircraft = :ac_ name; 
ac pre pwr = ac cur pwr; 
ac pre spd = ac_cur spd; 
igdef CERCKOUT 
prist?(" %1d te power in %s", sqica.seqiccde, azbv.arr, pr_pwr_t.arr) ; 
fendi 


WEWVALS(); } 
retura (ist) sqloa.sqlocde; 
} 


int vfyEatr (meme) 


[RARATARAERARREEREERRARARAREAERRREARERERARERARAAREERREEORAARAEEREROERARARAHRERE 


e 
bal wiyt@atr -- Verify the existence of a MPR ca the system 

* ry 

® 

bad Routine looks in SOURCELIST (a view on a SUPERUSER table), loads 

® sroowner aad returns eqica.sqicode for the query. Serco means MFR 
bal exists, SQL BOF means it does act, all cther values indicate an SOL 
e error except that DUPLICATE OBJECT means that the object exists ca 
® the system but is act accessible to the present sssesment 

® 


PARAREHRSAAARDARARARARARARRRRERERRRERERRREREARERRERRRRRERERRERERAEREREREEEE / 


char name[]; 

{ 

register int i; 
#iftdeft CRHECKOUT 
print? ("\avfyMeter “); 
Genai¢ 
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a2bv.les = strlea (name) ; 
for ( in0; 4 < azbv.ies; i++) 
a2bv.arz[i] = toupper (meme [iJ) ; 


enc SOL SELECT owner /* 
ram 8 scurcelisct /* 
ImTto :ercowner 
WEERE label ~ :azbv /* 
AMD type = ‘1’; /* 


@Afdet CEECEOUT 


Identify the owner from */ 
the list of all scurces */ 


which has this neme and */ 
49 en 1FR a/ 


priat?’(" %ld omer td", sqloa.sqicode, sreowner) ; 


fendi 


af (sqios .eqicode == HULL, FETCEED) returs (ist) 0; 
42 ((sqlos.eqilcoda == 0) 66 (sroowner I= ASSESSMEN?. id) ) 


retura (int) DUPLICATE OBJECT; 
retura (int) seqlaa.sqlooda; 
} 


LORARAHRAARARARAARAAAERAEREREARARRAARERRERERARARARKERAREERAARERRARERERAOREAEE 


cancmte -- Cancel the MPR currently peadinag on the dstabase 


dat eanantr () 

Cf 

* 

2 Ses 

* 

* Beratine alwaye isecues a ROLLBACK 


* ese & 2 @ 


RARAARAARARAARARAERAREARARERARREEAERAREARERREERAEARERARRRRANRRRRERERAERARERE / 


{ 
int pemtreat () ; 


#4fdef cCEncKour 
priat? (“\scanaatr “); 
Gendifc 


EXEC OOL ROLLBACK WORK; 
ifdef CEECKOUT 

print? ("tid", sqica.sqlocde) ; 
fendit 


eprint? (workspece.arr, "Ratry for MPR te CANCELLED’, eraid.arr); 


SLOUTR (workspace. arr) ; 

ercid arr[ercid.ies = Oj = ’\0’; 
peut reat (); 

retura (iat) seqlos.sqlocde; 

} 


aut saventr () 


LARAREREAARRRAREAEAEREARARARAREEAERERERRAREREARAARANEERERRERAREERERERRARKENEDE 


& 

® 

sd] Pd 

& 

a 

bad issues a COACT to the database 
* 


savemntr -~ Ccamit the MPR curreatly pending cea the database 


Routine checks if there is a walid MFR being ccoastructed then 


SAASRARAAEAARARARRARADRARRERAEAHERRARRAHREEEEDEAREEEEERORREERAEHEROREREEERE/ 


{ 
register int i; 


itdef CRECKOUT 
print? (“\nsevemtr °); 
feadi¢ 


mt lista () ; 
af (srcetat =m '0°) {- 


SLOUTB (“MrR had errors and was act saved”) ; 


UXEC SQL ROLLBACK WORK; 
#4tdef CEECKOUT 


printf (“ROLLED MPR BACK!..... 81d", eqloca.eqlocda) ; 


fendir 
ereid.arrfercid.iem = Oj = ’\0’; 
} 


alse { /* First check if we have to enter one more point! */ 


4f (curnavpt .arr[0] [tm "\0’) 
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if (inemtrpt()) retura (iat) sqloa.sqicode; 


ZxBC OOF. COOMETT WORE; 
ifdef CEECKOUT 
print? (“Committed MFR 414", eqica.sqiccde) ; 
@endic 
} 
pemtreat () ; 
retura (int) sqica.sqlccdsa; 
} 


dat melieteo() 
[AARAARARAARARADEAAREREERERRERARERREARARAAREEERREREREAAGEREREADOERARSERERERRE 


a 
malisto --- Open cursor 81 for a list of MrRs ca the syeten 
a that are accessible to an assesoment 


Routine executes as cpen cursor ocamand for cursor 81 aad thea 
returas to the ocnliling program with the ORACLE status code. 


Hote: Modificaticas to this fuactica may impect the related 
functions mslistf£(), mebunch() and melistc() that fetoh 
rows and close the cursor aad, possibly, functicas that 
enll these utility routines. 


*oenseeses 8 @ 8 8 8 © 
oe e232 Db ODS SD 8 ® 


ARAARRERAAAERARRAAARAAARARRERERERERARERRAERAERERRARARRARARRARAAERERERERARARR / 


{ 
G4fdef CeECcKoUrT 
printf ("\mmslisto °); 


Gendi?’ 

XXEC S6L DECLARE Si CURSOR FOR 
SELECT label /* These are unique identifiers a/ 
rua scurces /*® View of all accessible “sources” */ 
WEERE type = ‘2’ /* M@Phe are type == 1 a/ 


@itdef CEBCKEOUT 
printf (* Opem: %id °, sqlca.sqiccds) ; 
fendif 


retura (int) eqica.sqicoda; 
} 


' det melistf£ () 
[ARAARRAREAAARARERERRARRARARERERARRERRARREAREREREERARRAREREREERREERREARREEROR 


a 
molistf -——- YWetch a row using the cpesed cursor 81 for MrRs 
ae 


Routiae executes an fetch command for cursor 81, which is sseued 
to have been cpened, and then returns to the calling program with 
the ORACLE estatug ocde. 


Mote: Modifications to this function may impect the related 
functicas mslisto(), mebunch() and mslists() that copes, 
fetch groupwise and close the cursor and, likely, 
functions that call these utility programs 


asaee ee eee eRe DP 8 
e*e,8s+e te 32 8S B&B S&P BB 


ARALRRAARARARAAAAARERRARRERAKARRERAARERRREAREAREREREERERERERERRREREREREARER RE / 


{ 

Exec SOL. FETCH 81 IvFo :ercid; 
ereid.arr(sraid.leaj = ‘\0’; 

@ifdef CERCKOUT 

prant£(* Fetch: tld °, sqica.sqlacde) ; 
feadift 

retura (iat) sqion.sqiccde; 

} 


aat mebuach () 
[PAAAEARRARRARRERERAREERARAARRERARARRERRERRARRARRARRARARAARRRREAREREREREERERR 


* ft 
* mebunch 8 --- Fetch a bunch (20 or whatever the size of dsplault) led 
" — using the cpeped cursor 81 for mtrlist * 
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Routine executes an fetch command for curecr 81, which is asewed 
to have been cpened, and then retures to the calliag program with 
the ORACLE status acde. 


Wete: Modifications to this fuacticn may impect the related 
fuacticas melisto(), mslist?() aad meliestc() that cpea, 
fetch and close the cursor aad, likely, funacticas that 
call these utility programs 


aes Ss #8 #8 8 8 
e*e2enspe 0) 6 D2 8 D ® 


RRARAAARARARAARARRESEESAREAREREEEAAARAARADRSRSAEKAERHHRORAAEREAHRARREHenERKee/ 
{ 

register Aut i; 

iut arows, mrows, reode; 

ahar *alock(); 


EBC OGL FETCR 81 Orro :depimult; 
mrows © (int) sqlca.sqierrd [2]; 
mzowse =» (sizeof deplaslt) / 34; 
reodea = (iat) sqloa.sqlocde; 


§ifdef CaERCKOUT 
pristf£(° meBuach: $14 returae td of td rows’, sqlon.sqlocde, arows, mrows); 
fendif 
if ((zecde = SQL, FETCE_OUT_OF ORDER) || (roode ax OL mor) { 
if ((reode == SQL BOF) 66 (mrows > 0)) { 
for (i = 0; 1 < nrows; 44+) deplmuit [1] .arr[depinalt [4].lea] = ’\0’; 
af (axsowse < mrowe) 
for (i = mrows; 1 < mrows; 1++) deplmalt [4] .arr[0}] = °\0’; 


WEWVALS () ; 
SLOUTP ("The last MPR in the list ies om the screen”) ; } 
else { 
WEWVALS () ; 
SLOUT? (“You are already as far down in the list as you oma go"); } 
} 
else { 
af (xzoode) { 
WaaDcaasG ; 
fprint? (damte, °\nte MEBUNCH: te", aloak{), eqloa .sqlerr .sqlermac) ; } 
REWVALS {) ; } 
returs rocde; 


} 


dat melistec() 
[LRARRARERAARRAARARERGHAREAERARRAREREESERAAREREHARAARARASERRRERRAREREAROAREROEE 
t * 


* melista ~o= Close cursor 81 for mtriist bal 
® =a * 
® ® 
bad Routine executes a close cursor command for cursor £1 and then 2 
* returns to the calling program with the ORACLE status caocde. * 
® e 
« Mote: Modifications to this functica may impact the related ® 
* functions melisto(), mebunch, aad mslistf() that open the « 
bad cursor and fetch rows using it aad, possibly, fuactions * 
* that call these utilities « 
* ® 


FARAARARAARARARAERRHARRRARAHARERAERAERERERERAAERERERARERRARERRARRERERRERRE ORE / 


{ 

#Afdef CERCEOUT 
print? (*\emelista °); 
fendit 


EXEC SOL CLOSE Si; 

#ifdef CEBCKOUT 

priatf("Close: tid ", sqloa.sqioode) ; 
feadit 

retura (int) seqlon.sglocde; 

} 


sat mtlisto() 
{[RARRAARARRARAREREAEERERERAREEAREREEEARREEEREERAEEREEERARKERERRERAARARERARKER 


* a 
mtlisto --- Open curser 82 for a list of user information 
eS of navigation pointe om a particular FR 


» 2 & & 
» oS 8 ® 


Routine executes an cpen curser cammand for curser 82 and thea 
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returas to the calling program with the ORACLE status code. 


Hote: Modifiasticas to this function may impact the related 
functicaes mtlist£() ead mtiistc() that fetch rows and 
Gloee the cursor end, poesibly, fuacticoas that cali 
these utility routines. 


Le ee) 
* 2s. 8 © © 6 


CHARAHHERARESASARAAEAAAEEREARAREDHEARARAEERKAERANAKARHERAAREREREARKAREEHARARA/ 
{ 

ifdef CEBcKoUr 

print? ("\metlisto “); 

@endir 


stropy( ocid.arr, ercid.arr) ; 
straat (cid.arr, "%"); 
eid.lem @ etriles (cid.arr) ; 


EXEC SOL. DECLARE 82 CURSOR FOR 
SanecT fiz label, fix id, fiz type, fix _ red, 
fix dist, width left, width right 
rRoM mt reegmente 
WRERE fiz label LIKE :aid 
CODER BY fiz label; 


EXEC SOL COEN 82; 


#itdeft CEBCEOUT 
priat?(° Opea: 41d *, eqion.sqlocde) ; 
Gendif 


return (iat) sqlca.sqlacde; 
} 


aut mt lists () 
JS AHAAAARARAARERERARARAARARAREERRERARAARRERRERHARERAARRARREARARERREEKEENERRARH 


® ® 
* mtlist?’ "<< Wetch a row using the cpened cursor 82 for MFR ® 
* Seer Wavigation Point User Informatica bad 
a * 
* Routine executes an fetch command for cursor 82, which is asemed 2 
* to have been cpesed, and then returns to the calling program with * 
& the ORACLE etatus code. * 
® 2 
* Mote: Modifications to this function may impect the related * 
* functicas mtlisto() and wtlistc() that open and close the * 
® cursor aad, likely, functions that call these ntilities ® 
* * 


SARARERSERARAARARARAAAEERARERRAAAEERERREEARERERERERERADRAARERRRARREARERERA A / 


{ 


EXEC SOL FPETCE S2 INTO :a2bv, :prefiscid, :prefixtyp, :prefixzred, 
iprefixdist, :prewidleft, :prewidright ; 


prefixtd arr (prefizid.lea] = ’\0’; 
prefixztyp.arr[prefixtyp.leaj] = ‘\0'; 


@ifdef CEECcKOU? 
printf®(" Fetch: %14 *, sqlan.sqiacde) ; o 
dendir 

retura (iat) eqlaa.sqlacde; 

} 


dat mtliste() 
JRRARARERARARARARREAAREEEREAHAREEAREREARAREHEEARERRERERERARERERAKAAHERERERERE 


® ® 
wmtliste --- Close curser 82 for Bavigatica Pointe 


Routine ezecutes ea close cursor command for cursor 82 and thea * 
returas to the calling program with the ORACLE status sode. 


* 
® 
Rote: Modifications to this function may impact the related ® 
functions mtlisto() and mtlistf() thet cpea the cursor * 

and fetch rows using it and, possibly, functicas that ® 

call these utilities * 

* 


se s+ oP @P BP eR HD 


RAARARALARRARAREREAEERAERARSRREERARRERERERARRRERERRRARREREERRERASRRARRHAERORE / 
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{ 
@4fdef CEECKCUT 


printf ("\eetlista °); 


retura (iat) sqlon.sqloode:; 
} 


iat malisto() 


LARAARARAAAAAAARARRARAARRARARRARARRARARARARARARRARAREAHRAERARAAHARRERARRORERER 


malisto --- Open cursor 83 for a list of user informatica 
—<— of aavigation pointes ca a particular MTR 


Routine executes an copes cursor ccmmand for cursor 83 and then 
weturns to the calling program with the ORACLE etatus code. 


Rote: 


Modifications to this functica may impect the related 
fuactices wtlistf() and mtlista() thet fetch rows aad 
Gliose the cursor aad, possibly, functicas that call 


these utility routines. 


oes es 8 8 BBS 8 8 © 


@#eep epee 8 @ 8 D2 8 & 


RAARAARAARARARRARAAAAAHARAARARRARAREERRERERRERARARRARRRERARRRERARRERERERRRERE / 


stropy( cid.arr, ercid.arr); 
etroat (cid. arr, "%"); 
aid.lee = strlen (cid.arr) ; 


REBC SOL DECLARE 83 CURSOR FOR 


SELECT fix label, floor_ref, cailing ref, fix id, 


artoc, fix lat, fiz_leoa, 


flocr, oailing, width lett, 


race mt rsegqnents 
WHERE fiz label LIKE :cid 
ORDER BY fix Jabal; 


EZEC SOL CORN 83; 


@itdef CaECKOUT 

printf (* Open: %1d °, sqicaa.sqicode) ; 
fendit 

cetura (int) sqica.sqloacde; 

) 


int malist? () 


LPAAAAAARARAARARKHERRERERRAERRARRERRERAREEEHEAARARRARAERERARARRERKAREREERESES 


* ® 
® maliet£ —= Fetch s row using the cpesed cursor 83 for MFR ® 
” —a Mavigation Point User Informatica bal 
a ® 
* Routine executes an fetch ccamand for curser £3, which ts sseued « 
* to have bean opened, and then returns to the calling pregram with * 
® the ORACLE status soda. Ld 
* * 
* Mote: Modifications to this functica may impact the related ® 
Ll functiocas mtlisto(} aad mtiistc() that open and close the * 
e cursor and, likely, functions that oall these utilities * 
« * 
SAARRAAREREEARAARERRERAARRARARAEEAARORRAERAREARRAREHERERRERRARARANRNEE ERRORS / 
{ 
etropy (aptr3, ° "“); /* If you dom’t use VARCEAR, you have to */ 
etrapy (opt r4, “ "); /* clear the epece or waird thinge happen */ 
EXEC SOL FETCH 83 UDFTO :a2bv, :aptrl, :ourfizid, 
:qurfixtyp, :curartca, :optr4, 
:curfizred, :curfizdist, :iptri, :lptzr2, 


:curwidlett, :curwidright ; 
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at eee me ener ee me ee | - 


prefixid arr [prefizid.lea] = ‘\0’; 
prefiztyp.arr(prefiztyp.leaj = ’\0’; 


@i¢det CEEcKOUT » 
printf (" Fetch: %1d °, sqlan.sqloode) ; 
Gendit 
retura (int) eqioca.sqlecda; 
} 
nr 


aut malists() 
[PARAAAAERARSAAERERAEARERAARAAEARORAEAAAARABAARAAAREEERARARRRRAARAAAEEOEEERARE 


* * 
* malista --- Close cursor 83 for Navigation Poiats e 
e ay * 
a * 
Ld Routine executes a aicee cursor command for cursor 83 aad then * 

* returas to the anlling progrem with the ORACLE status code. e 
* e 
bd Mote: Medifications to this functica may impact the related e 
bal fuacticas mtlisto() and mtlist£() that copes the cursor a 
* aad fetch rows using it aad, poesibly, fuactioas that * 
e enll these utilities bad 
® ® 


REARAERRARAARERAARERERTAARAARARERAARRRRAERERAERAERRARRRAREREAREREOERERERRARRA / 


{ 

#ivdef CEECKOUT 
prints (“\mmtlista *°); 
endif 


EXEC SQL CLOSE 83; 

#itdef CHECKOUT 

print? (* Close: %1id °, eqlas.sqicode) ; 
Gendif 

retura (int) eqios.sqlooda; 


[LAAARAAAAARARRADREREARERERERERRERKERARARARERREAREREARERRARERHARRAERRARRRREERER 


® t 
* startup.pa -- ASAN Initialization Code. This program is only * 
® “esed to determine the status of ORACLE and to ® 
bad loed those pieces which are needed. The space * 
* At occupies can be relinquished after ezecutica. * 
® rd 


RARAAAAAAAAAAREAHEREAERAEAERERAAERERAARARRERRARERRAARARRARRARRARERARRRARRRRERE / 


#include <stdio.h> /* The veual stuff, of course */ 
@include <preocess .h> /* UEaeader for calls to ms-pos */ 
#include <string.h> /* @triag manipulation header */ 


#4nclude <time.h> 
$define SQLCA STORAGE CLASS axtara 
EXEC SQL BEGIN DECLARE SECTION; 


EXEC SOL DPCLUDE hostvurs.h; 
RXEC SOL INCLUDE fSnharria.h; 


EXEC SOL EMD DECLARE £BCTICN; 


Exec SOL DPCLUOS sSOLCA: 
@incinude “"asazn.h” 


st rtABAN () 
[PAARRAARRARERAAREERAERARERRARAGAERARRERERAREERRERRAEREREERRAEREREARRRERERERERE 


® 
strtASan -- start AZAW functica 


Starts by attempting to ccanect to ORACLE as “SUPERUSER”. 
If ORACLE is not up it will attempt to install it. If 
unsuccessful, execution will terminate with eppropriete 
diagnoesetia information (i.e. what piece of the CRACLE 
Gateabase manager it cannct find). 


Bote: This program is totally dependent ca how ORACLE and ite 
asecciated programs behave. It should be tasted (with 
Sdefine CHECKOUT here and in cther files with ORACLE calls) 
when a new ORACLE release is installed. Particularly the 
retura codes for uninstalled systems, since they are not 


pvp vp Pewee Dea ee oP HR EG 
secs; seeseneeeheesee 0) 8 & S & 
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@ according to specification in release 3.1. {a.g., -3120 * 
® should be -3121). * 
e e 
SARRRERAARAAERARARSERAARNARAERERARAEHARRERRAERERERARESERERERDERHERERARNARNERED/ 
{ 

int. raode, zocda; /* Oracle return code temporaries */ 

fut dacde = 0; /* MS-DOS retura code */ 


iat spewalp(), SUcona() ; 
char *alock(); 


etrapy (ASSESM@EENT .asme, “SUPERUSER") ; 


O0_reode = sUccan () ; /* Sry SUPERUSER and see what happens */ 
if (zooda = 00 reode) { /* © am ORACLE wp and rumming */ 
gwitoh (rocde) { 
ease -3120: /* 3120 == SOLPOM is act tustalled */ 
FR RT iain ere ia eS -- a/ 


dacda ~ spawalp(P WATT, “sqirme.ene’, “eqirme.exe", */acior" , NOLL) ; 

af ( daodea < 0) { 
print? ("\nsystem not properly jastalled! ASANW cen’t find"); 
print? (“\mORACLE’s Protected Mode Executive SOLPME.XXE"); 
printf ("\nYour Dets Administrator should be able to help\a\a\a") ; 
Sprint? (dante, “\nte SgLPME Failed (%d)", alock(), doode) ; 
exit (16) ;} 

@lee if ( dacde < 768) { 
printf (“\nORACLE’s Protected Mode Executive SOLPME. EXE"); 
print? ("\nAbmormally terminated. Retura code was %da", daode) ; 
priat?("\nYour Deta Administrator should be able to halp"); 

' Sprint? (dante, *\nte soLPME Failed (%d)", alock(), doode) ; 

exit (16) ;} 

fprintf (dante, "\ate SOLPME Installed", oaloak()); 


Case CORA UMAVATLABLE : /* Mot avetlable: Do ION first a/ 
TR Et a pe ra ota legs a/ 
doodea = spewalp(P WAIT, “ior. aze”, "ior.exe", “warm", NOLL) ; 
af ( doode <0) { 
print? ("\n#yetem act properly installed! ASANW can’t fina"); 
Print? (“\RORACLE’s Startup routine TOR. EXE"); 
print?’ (“\nYour Date Administrator should be able to halp”); 
fprint? (dante, "\nte ORACLE Server Failed($d)", clock(), docde); 
@zit (16) ;)} 


@lee if ({ decdea > 0) { 
print’ ("\nORACLE’s Initielization Routine IOR. EXE has*); 
printf (*\nAbnormally terminated. Return code was &d°, doode) ; 
printf ("\nYour Data Administrator should be able to help”); 
fprintf (dante, “\nts ORACLE Server Failed {9d)°, cloak({), daodae); 
exit (16) ;} 


else { /* Give COMMNECT coe more try a/ 
fprintf (dante, “\nte CRACLE Server Started", aloak()); 
if { z0ode = SUocan() ) { 
printf (*\nASAM has attempted to iastall the ORACLE Detabese") ; 
printf ("server, but after what \nappears to have bean a "); 
printf (*\successful installation ASAN doesn’t want to wtart”); 
print? (°\sCause: %e°, eqica .sqlerm.eqlermse) ; 
4f (eqiaa sqloode = §QL_ BAD L0GCH) 
print? ("\a\tasaWw instalistion program has probably not been rea yet"); 
print? (*\nYour Data Administrator should be able to help\a\a°) ; 
system ("pause") ; 
Clos@ORA () ; 
fprintf£ (dante, “\nte Initial Connect failed second tine (%d)*, 
alock(), xaode) ; 
exit (16) >} 
} 
break; 


default: { 

fprintf (dante, “\ate ASAN cannct establish ocmmunication with ORACLE”, 
clock ())}; 

fprintf (dente, “\nCause: %e°, eqica.sqlermm.sqlerrac) ; 
print? ("\n\nASAW cannct establish ccmmunicaticon with the ORACLE "); 
print? ("Detabase Server. \nCause: te", #qlca .sqlerrn.sqlermas) ; 
if (eqlca .eqlcods == SQL BAD 10GOM) 
printf ("\n\tasaW installation program has probably act been rum yet") ; 
printf("\nYour Data Administrator should be able to help\a\a") ; 
eyetam (“pause”) ; 
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GLloseORA () ; 
exit (16) ;} 
} /* Bad Switch */ 
} /* Bad re */ 3 
fpriat£ (dante, °"\nte ASAW #tarted °, aloak()); 
return 0; 
} 


iat vfy ASAN() 


[PARAARARRARAAAARRERATEAARAADRAREAREAAARAERRAHRRARRAAARARERERAAARRAREAARARRREREER 

2 

vfy ASZAN -- Routine to check ASAN release levels and cther system 
integrity functicas. This function is act implemented 
4m nor meaningful for the prototype versica of ASAN 


os » 8 6 
»s 2 * ® 


e 
SARAERARRAAAAEAARAALARRAARAAEAAARAERARARAAAHRAREREERERERARAARRAARARRARERRARARARE / 


{ 
retura (ist) 0; 


} 


fat pwaheck () 


[RARRARARARAERERERARARERREAAERARERRRERRERRARERAEERRERAAAEARARERERERHAAAOEHRERKA 
e a 

* pwoheck -- Routine to check pessword and/or user amma validity * 

* This fuactica is act implemented ta the prototype * 

a a 
RERRARARERERENAAERRARAAAAREEERERAERERAEAERAAEERER EERE EAEERAAERERERAERERNEERRE / 

{ 

reterm (iat) 0; ° 
} 


/* SRARVSSAKLSAAARTEAAHARSHSSALS ASKS TECESTRASIERAAKARAKAARAAKARKRAARARAAAAAAAARARARARRREARRAR 


tablee.pa -- Set of routines to access the data dicticaary’s 
dauveatory of users, tables, caclumns eta. 


For each ORACLE cursor there are three routines ag follows: 
i. ...Listeo() Opea Cursor (Opens a “logical file”) 
2. ..-Listf() Fetch Cursor (Reads next record from logical file) 
.. 2vanck () Fetch Cursor (Reads nart bunch from logical file 
applicable caly for multiple choise opticas) 
4. ...iiste() Close Cursor (Closes the logical file) 


Routines in this fils: 
- »= wt - Hames of assesemente (LIFO order on date started). 

& - Memes and ccumentes of all tables CREATED by current 
ascooment. caly. 

ao - Semes and cements of columns in specific table [:tid] 
(retrieved in order of column in the table). 

tc ~- Mamee and ccemente of solumns in ell tables CREATED by 

current assesment (sorted alphabetically on table and 
oolwan within table) 

v - ASAM table of contents in alphabetic order. 


& - Asterisk indicates that multiple choise optica is 
eupported for this set of routines. 


e*epseeaoaepeev ee eevee e een een ese 8 * BD 
ee ee 


RRAREAARAHRERRAEAEARREERARREREEEEEREEAREREOEEREEREREAARRERAAERANERARHARERERRE / 

#include <stdic.h> /* The usual stuff, of course */ - 
@4nclude <process .h> /* Seader for calls to MS-Dos */ 

@include <striag. b> /* String manipuletica header */ 


(define SGLCA STORAGE CLASS extern 
EXEC SOL INCLUDE SGLCA; /* 8% Communication Area e/ 


EXEC SOL BEGIN OECLARE SECTION; 


EXEC SOL TNCLUDE host vare.h; 
Exec £64 DRCLUSDE faharris.bh: 


EXEC 861 ERD DECLARE SECTION; 
@include “asan.h” /* #@tandard ASAN Neader file */ 


ist ulisto() 
[AAARAARERRAERALARARAREREREREARERRRARDERARAAAERARRAARARAAHEREEERRAERENAREREEE 
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alisto ——— Opem cursor Ul for userlist (ASAN assesemants) 


Routine executes an open curscor ccumand for curser Ui and then 
zeturas to the oalling program with the ORACLE status code. 


Note:  Modificaticas to this function may impact the related 
functicas alistf£(), ubuach() and alistc() thet fetch rows 
aad close the curser and, possibly, functicas that oall 
these utility program 


*e# 28s 8S 2 eS So wD DS 8 
ee ee ee ee 


SAERAAAARARARARARARAEAREEERERERERERAERERARAAAHORENANRERRERERERReRARRNAeREn / 


SELECT username /* SAseasemente are ORACLE Users */ 
PROM eysuserlist, /* standard Deta Dicticeary view */ 
table _of coutents /* ASAN’s List of assesements. «/ 
WEERE sysuseriist userid = table of contents .idnumber 
ORDER BY timestamp basc; /* LIFO Listing order */ 


print? (" Open: tld“, sqlaa.sqloode) ; 
fendic 
retura (iat) sqios.sqlacde; 


} 


iat ulistf () 
[LPAAERAAAARRAAEARARAERERRRAERERAREREEREREREARERARERARKEREEREERERARAARAARERERE 


a 
wlist& --- Fetch a row using the cpemed cursor Ul for userlist 
a ‘ 


Routine executes an fetch ccamand for cursor U1, which is aseuned 
to have bean cpemed, and then returus to the calling progren with 
the ORACLE statue oode. 


Hote: Modificaticas to this function may impact the related 
functions ulisto(), ubunch() sad ulista() that open, 
fetah groupwiese and cloee the cursor aad, likely, any 
functions that call these utility programe 


ahahahahahahahahainbahaiaiaintaiahalalaedetaisbniahaiaiabsinieheiaheisiainbninieheieinhaisinisiaiaiateletalelalahdelatiaieinideiaieliaiaiehdoieio’ 
{ 

Exec SOL FETCE Ul ITO : aid; 

aid .arr[uid.ieaj = ’\0’; 

@ifde¢ CEECKOUT 

printf£(° Fetch: tid °, sqlaa.sqloode) ; 

fendit 

retura (iat) eqlos.sqlicode; 

} 


iat ubuach () 
[ARRARRARAARARRARERERRERERATHERAAAERRAAREERERADEARERAKERERHERERRRARRERRRREREE 
& 

whanch --- Fetch a bunch (20 or whatever the size of deplmalt) 
aaa using the opened cursor U1 for sysuserlist 


Routine executes an fetch ccamand for cursor Wi, which is aseued 
to have bees opened, and them returns to the Calling program with 
the ORACLE status sccde. 


Hote: Modifications to this function may impact the related 
functicas ulisto(), ulistf() and ulieta() that open aad 
close the cursor and, likely, functions that call these 


wtility programs 


a 8&# pee eb Sh BS DS 8 ® 
# ee; #68? @&@ 8S 8 & © BB DB 


RAREERERERAERSONREEREARERRDEREERAREREERRERERERREEREEREENEEORONREERERERERE ER / 
{ 

register int i; 

int nrows, mrows, teoode; 

ehar *caloak() ; 


171 


eee Ol FEerTcs U1 Orre :deplmait; 
arows =» (ist) eqloa.sqlerrd[2]; 
mrows « (sizeof deplault) / 34; 
reede = (int) eqloa.sqglacde; 


Gifdef CEBCKOUT 
print? (“ Bunch: tid returas td of &d4 rows", sqlas.sqicode, arows, mrows) ; 
fendit 
af ((roode == O8GL FETCE_OUT_OF ORDER) || (rocde == Sg BOF)) { 
if ((rcode == 99% BOF) 66 (mrows > 0)) ( 
for (2 = 0; 2 < arows; i++) deplenit [4] .arr{deplmalt [i}.lenj = “\o'; 
if (nrows < mrows) 
for (2 = arowe; 4 < mrows; 44+) deplwelt[4).arr[0] = ’\0’; 
MEWVALS () ; 
SLOUT? (“The last assesement ia the list is om the screen") ; } 
else { 
REWVALS () ; 
SLOUT? ("You are already as far down in the list as you can"); } 
) 
else if (roode) fprintf (dante, °"\nte URONCE: te", 
Gleak(), sqloa.sqilerm.seqlerznc) ; 


MEWVALS () ; 

retura reacde; 

} 

fat ulists() 
[PPRAAAAARARRARAREAREAEEERARARAAAREREREREERAEREREERERERARENARERERENEREAREOEES 
& ® 
* nlista ——- Close curscr Ul for userlist * 
sd =e ® 
® ; a 
* Routine executes a close cursor ccmmand for cursor Ul asd then * 
* returns to the calling program with the ORACLE status code. * 
& & 
« Hote: Modificaticas to this function may impect the related Ld 
bad functicas ulisto(), alistf£({) and abunch() that open the a 
ad cursor and fetch rows using it and, poesibly, fuactioas * 
* that omll these utilities e 
& e 


RAESHAARAARARRARAKERAEAAAARARAARERAAARERAARARAEHEAEREREREREREREAREREERRARRERES a/ 


{ 

@itdef CEECEOUT 
print? (“\aulista “); 
Gendi? 


EXEC S6L CLOSE U1; 

@itdef CKECKOUT 

printf ("Ciose: tid ", eqloa.sqlccde) ; 
@enadit 

retura (iat) sqlica.sqlocde: 

) 


int tiisto() 
[PARARAREAAAAAARERATERARAHHEREAERERERRERRARARSEEERENKARENARERRRARKEREREREEENE 


e 
* tliste --- Opea cursor U2 for list of tables in an assesanent * 
* Ce] * 
* ® 
e Routine executes am cpen cursor ccamand for cursor U2 aad thea * 
* returns to the calling program with the ORACLE status ccde. * 
® * 
® Mote: Medificatices to thie function may impact the related * 
* functions tlistf£() and tlistc() that fetch rews and * 
* close the cursor respectively and, possibly, fuacticas * 
® that onll these utilities bad 
* ® 
RARRERERERARRALARARAEEEERERAREREREEERERAREERAAEREERERARERELERERRRRHOERARRERE / 
{ 
#itdef CEECEOUT 
print? (“\ntlieto*) ; 
fendir 


ZXSC SQL DECLARE U2 CURSOR FOR 
SELECT neme, cant /* That is wheat table name and */ 
FROM 0 sye.véarptab 8 /* comment are called in this view */ 
ORDER BY name; 


EXEC 80% OPEN U2; 
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dat tlistf£({) 
[RAAARARRAAAARRERAREAAAEERAAERERERERALERAARARRARREREERRERRRARRRERESRARAEARERH 


a 
tlist£ --- Fetch a row uing the cpamed cursor U2 for tablelist 


Routine executes an fetch command for cursor U2, which is assumed 
te have been cpened, aad then returns to the calling program with 
the ORACLE status code. . 
Mote: Modifications to this function may impact the related 
functicas tlisto() and tlists() that copes aad alcose 
the cursor respectively aad, possibly, fuacticas that 
aall thease utilities 


@aensteeseepenheeses * & 
oe ep ev Poe eRe De DBR BS 


SHERRARRARATERATERARAARARAASAAAAAARAKAERERAAAANKEARARARRRERRAHRAREERREoeHERA / 
{ 

EXRC OGL FRETCE U2 Irro :tid, : workspace; 

tid.arr[tid.lemj] = °\0’; 

workspace .arr (workspasce.len)] = ’\0’; 


@igder cEncecu? ; 
printf(" Fetch: %1d", eqloa.sqloode) ; 


fendif . 

retura (ist) sqica.eqlacde; 

} 

4st tlistc() 
[PARRKAARARAEAERASEERARERARERREAREARARRERERREERARERARAAREREARAREERAARREARDRERR 
* e 
bad tiitsts --~- Close cursor U2 for tablelist * 
* oes e 
e e 
bl Routine axzecutes a close cursor ccamand for cursor U2 aad thea * 
® returns to the calling pregram with the ORACLE status codes. bed 
® a 
® Note: Medificaticas to this function may impact the related * 
bad functicas tlisto() and tlistf() that open the cursor and * 
bad fetch rows using it respectively aad, possibly, fuacticas al 
Ll thet call thease utilities e 
e ® 


RHASRARHARAAARRAAERARAARARAAERREAEHARRERRAGHARERARAARAARARERAARAARRERRARAAR / 
{ 

#4fdef CEECEOUT 

praatt(* tliste "); 

fendir 


Exec SOL CLOSE U2: 

#ifdet CREECKOUT 

print? (*Cloee: tld “*, sqlas.sqlccde) ; 
fendiz 

return (int) sqlca.sqiccde: 

} 


iat clisto() 
[RARRAREERARARRERERARERARRAERAREARARRAAAHAKERARERAAREARARHREEHERHERRERHARARKOR 


* 
elisto --- Open curser U3 for list of sccolumas in a table 


Routine executes an cpen cursor command for cursor U3 and thea 
returas to the calling program with the ORACLE status acde. 


Hote: Modifications to this functicn may impact the related 
functions cliet{£() and clista() that fetch rower and 
close the cursor respectively and, possibly, functicas 
that call these utilities 


*- 8s 02 82% SB DBS DS DS f 
»23e #8382 82 8S D2 8 DD 


RARRAARARAAAAAAARAAHARAERERARRARARERARERERAAREREAARARAEEERARARRARARRRERRRRARE / 


{ 
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print? (*\aclisto") ; 

Gendit 

EXEC S02. DOCLARE U3 CURSOR FOR 
SELECT cneme /* That is what the column is */ 
PEO ool /* ealled in this view a/ 
WEERE taame w :tid /* For the current table a/ 
CODER BY colnc; /* Im order of creatica «/ 


print?®(" Opem: %1d", sqlon.sqlcocde) ; 
seadit 


retura (int) sqloa.sqicode; 
} 


fat alist? () 
[RARRAAARAAAAHERAAREAAAAAARARAREAAEERERREAARAARAARERAEREERERERARAERERRRRRAERE 


olistf --- Fetch a row using the cpened cursor U3 for acluma list 


Routine executes en fetch camaad for curser U3, whiah is sesued 
to have been opened, and then returns to the calling program with 
the ORACLE status code. 


Mote: Modificaticas to this functicn may impect the related 
‘ fanctices clisto() and clista() that open and alose 
the cursor respectively and, possibly, functicas that 
eall these utilitice 


se pe 8@ Oe DBS SF BD DS 
oe *@ ee dee + 8% S&S 2 eS ® 


ROSREKAEAAAAARAARARRAEARAT AERARARARARARRAARAERESARERAERERRARAARARHERERHAREEROR / 


{ 
=xec 8QL Freres US Drro : aid; 
tid.arr(tid.lemj = ’\0’; 


$ifdef CEECKCUT 

printf£(° Fetah: %1d", sqica.eqlcode) ; 
@eadif 

return (ist) eqias.sqlcacde; 

} 


int clista() 
[PRRRARAERARAARREAARREREARAAREAERERARATRERRERRARERAREREREERARERARERAERRERARER 


7 * 
alista --= Glese curser U3 for taeblalist 


Routine executes a alose curscr scamand for cursor U3 and then ® 
returns to the calling program with the ORACLE status code. 


Mote: Modifications to this functica mey impect the related 
functions calisto() and clistf() that open the cursor and 
fetch rows using it respectively and, poesibly, functicas 
that aall these utilitias 


*eesesee eos 8 & 8 D 


*e tess 8 & 


RAAARAAAAARARARAAARERRARERRERARURKERERRARRERARRARAREREERARRARERRERRAARAERRRRAGE | 
{ 

$4fdef CHECKOUT 

printf(* aliste °); 

geadie 


EXEC 991 CLOSE U3; 

@ifdef CHECKOUT 

printf ("Close: %1d *, sqiaa.sqicods)} ; 
fendis 

return (int) sqica.sqlacde:; 

} 


int talisto () 
[PAAAAEARARARAAAARARRARERAREREEEREERAEREREREERREAARRARREAAARRERRAARREREREORER 
* & 


e teligto -o- Opes cursor U4 for list of all solumms sorted ca table * 
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Routine executes an cpen cursor ccumand for cursor U4 aad thea 
returns to the caliiag program with the ORACLE statue code. 


Bote: Medificaticas te this functica may impect the related 
fuacticas talistf() aad tclistca(}) thet fetch rows aad 
aloes the curscr respectively end, possibly, fuacticas 
that onll these utilities 


sae peepee s © 
ee eee 2 8 8 D8 6 


ARHAARALARAERAAAAAAHERAAAHARAAARERAREARAARRARKARARAARRARRARAERARREDROREREAERE / 


{ 
@itdef cupcKour 
priat£ (*\atalisto") ; 
feadizt 
EXEC SG, DECLARE U4 CURSOR FOR 
SELECT tnuama, /* Tet ie the table name */ 
cname, /* cama thet of the colum */ 
remarks /* in the COL view of the */ 
FROM col /* ORACLE Data Dicticaary  */ 


Exec SOL COMM U4; 


@iftdef CHECKOUT 
priatf(" Opem: %1d °, sqilasa.seqlccde) ; 
fendi? 


return (iat) sqlon.sqlocde; 
} 


dat tolist£() 
LAAAAAAARELARAARAARERAARRALARERENARERERARERRARERHARARERARAERRRERRARARARRRARRE 


* . * 
* telist£ --- Fetch a row usiag the cpened cursor U4 bad 
* — (column names sorted by table nane) * 
* ® 
* Routine executes ap fetch ccmmand for cursor 04, which its aseuned * 
* to have been cpesed, and thes returns to the calling program with 
the ORACLE status code. e 
a « 
* Mote: Modifications to this fuactice may impect the related * 
* fuactions tclisto() and tclistc() thet open and close * 
e the cursor respectively and, poesibly, fuacticas that * 
& eall these utilities ad 
f ® 


SEAARANEANAAREAADARAREREARERHAEREREAERERRARRERERERERREREHERARTENNRAREEREEREER / 
{ 

EXEC SQL FETCH U4 TrTro :tid, :aid, :workspece; 

tid .arr[tid.leaj] = ’\0'; 

aid.art(caid.lem] = ’\0'; 

workspace .arr[workspace.lan] «= '\0’ ; 


@ifdef CEBCECUT 

printf(" Fetch: $14", sqica.sqlacde} ; 
fendit 
retura (int) sqica.sqlacde; 

} 


iat telista() 
Att Et TE Tr Tee eet i iittiiiiiiiitiiiitit 


* t 
telista --~- Close cursor U4 for columm list sorted by table 


Routine executes a close cursor command for curser U4 and thea 
returas to the calling program with the ORACLE status code. 


Wote: Modificaticas to this function may impect the related 
functicas tclisto() and talistf() that cpem the curser aad 
fetch rows using it respectively aad, possibly, functicas 
that call these utilities 


* 2s #@ #@ Be Oe eo eS 


* 8 2 2 2 8 ® 


PERRARERHERANERAARARESRORANEAEREDRERREREERERAERRERESERERSERERSRERAREEORHNES / 


{ 
@ifdef CEECKOU? 
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printf(* talists °); 


printf ("Cloee: 414 °, sqlas.sqicode) ; 
fendiz£ 

returs (ist) sqlocs.sqlocede; 

} 


ist vlisto() 
[PRRARARAAARAREEEDRERAAREEABERARARERARRERERERREARERREREEEREEERRARERRAARARORER 


e 
vlisto --- Opem cursor US for list of ASAN’s assesements 


Routine executes an cpem cursor command for cursor US and then 
returns to the calling pregrem with the ORACLE status code. 


Bote: Modificatioas to this function may impect the related 
fuactions vlistf() aad vlista() thet fetch rows and ciose 
the cursor and, possibly, functions that call these 


weility progreme 


#s es; @ S@ @ BP eS SH BG 


RERSARAAAARARARARARARAARAERARRAEAAAARERAEAASAEATAAAAARAHRREARARRARRARARAERAHE / 


{ 
#afdef CEBCKOUT 
printf ("\avlisto “); 


WERERE eysuserlist userid = table_of_contente - idmumber 
ORDER BY username DESC; 


Exec SOL CORN US; 


Gitdet CEECECUT 

print? (" Opes: %ld °, eqlos.sqloode) ; 
dendif 

return (iat) sqloa.sqloocde; 

} 


int vlist#() 
LPAAASAAAAARERERAEREARARAHEERRARREERERARARRREKAERERARARRAERARREDREREREERAREAKE 


* * 
* wiistf --- ¥etoh a row using the cpened cursor US for list of ® 
® peed ASAN seceesmaents and their descripticas * 
2 * 
bal Rortine executes an fetch cocamand for cursor US, which is assumed 2 
e to have been cpened, and then returns to the calling program with * 
« the ORACLE status code. bad 
* * 
* Hota: Medifications to this functica may ismpect the related « 
* functicas wlisto() ulistc() that open close the cursor * 
bed and, likely, eny functions that cali these utility programs bed 
& * 


RRERAAARAAEARERAAEDAARAREAEAAREERERAEAREAEEREREREERERAHERREERRARERAREREREERRER / 


{ 

EXEC SQL FETCH US Info :uid, :workepace:; 
nid.arr(uid.lesa} = ‘\0’: 

workspace .arr[workspesca.lan} = ’\0’; 
@4tdef CEBCKOUT 

printf (* Fetah: %14 *, sqlas.sqlacde) ; 
feadif 

retura (ist) sqlas. sqlocde; 

) 


Sut vlistc()} 
[AEAAAAARAAARARERAARARRERAAAERAERRERRRERRAEARRRERARARDRERRARSEREREREEARERARER 


t ® 
& ulista = Close cursor US for ASAN table of contents * 
* ony * 
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o t 
e Routine executes a close cursor comand for cursor US aad thea e 
bad returns to the calling program with the ORACLE status code. * 
* * 
* Mote: Modifications to this function may impact the related e 
® functicas ulisto() aad ulistf(}) open the cursor aad fetch * 
e rows usiag it aad, poesibly, fauncticas thet aall these ® 
® wtilitiees ® 
« a 


ehalahalaiabadaiahahaiahalabahsiadaialebahaiebalaiababatebalablatabedaleleletlalaiaietalaiatatelataataeiaiginiainialeinietiate tot dek htt f 
{ 

ifdef cEBCEOUT 

print£("\aviiste *); 

Geadic 


EXEC SQL CLOSE US; 
ifdef ceEcEOUT 

priatt ("Close: tid ", sqlos.sqiecde) ; 
fendiz 
retura (int) eqlon.sqlacde; 

} 


[PRARARARARARAARERARERREREERAAREERARERREREREREARAERERRERREAARERERERERRARODERE 


e * 
2 wtil.pa -- A few general wtilities * 
e ae e 
® * 
* Pais file coutsias: e 
* * 
e expomeg ~ displays expansion of ORACLE error message bad 
bad expOwrn - displays expansion of ORACLE warning message * 
Ld aloak - pneturas time/date informatica * 
e a 


nhahaahabalalahahahaiabahaiahabadataiadaheiaiabalalahebebalniababsleialelaleheleialaiahelelnialdelatalialaiginaiaiotlaiaiaideletes deisel det YA 


#iaclude <process .h> /* Seadear for calle to ms-DOos w/ 
@Anclude <stdic.h> 

Sdefine SOLCA STORAGE CLASS extern /* @witch for heeder files LA 
EXEC 90%. BEGIN PRCLARE SECTION; /* All SQL declaraticas for this */ 
EXEC SQ. INCLUDE hoetvars.h;: /* ere im these two header files a/ 
EXEC SOL INCLUDE Snharris.h: /* this one cames fram °U" af 


EXEC SOL ED DECLARE SECTICH: 
EXEC SO. INCLUDE SOLCA:; 


f4aclude “asan.h” /* Stensdard ASAN Neader File a/ 
void expOmsg () 
[PARAAEARAARARARARAERRAAERROREERRERERERAERARETARRAARARERRARARRRERRRRERRAAERES 
& a 
* eaxpOmeg -~- Expaead Oracle Error Massage * 
* * 


RUSAARERAREREREARARAREDERERERRERARRENRERHORERERRKENENRNENOREREREHERERHeReREe/ 


{ 
G@ifdef cEECcKOUT 
priat? ("\at.70s\n", sqiaa.sqlerm.sqlerras) ; 


ee 

ED CHsG : 

SLOUT? (sqica.sqlerra.sqlarma) ; 
fendir 
} 
void exzpoOwrn () 
[PAARAARAEAAAAANANRADORAREAAREREORERAAAAERAERAREEERREROREROORRRARHERRRAReRRAS 
e ® 
* expowrn -- Expand Oracle Warning Message . 
a Se @ 
® e 


SORA A NAAN ERRAAERARNNAARENAHRRERERERNATERERAERRERERRERERERERSENNEeRERERRARERe/ 
{ 
if (eqlca.sqlwara[l] am ‘w) 
SLOUTR? ("SOLRARNING: Column Truncated”) ; 
aif (sqlca.sqlwarn[2] = 'W’} 
SLOUTBS? ("SCLWARMING: Wall ia aggregate”) ; 
if (sqica.sqiwarn[3] == ‘wW') 
SLOUTBP (“SQUKARNING: IOPFO war sount fe col count") ; 
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“tw 


&¢ (eqloa.eqiwera [4] == ‘W’) 
SLOOTR? ("SQOLMARWING: Update or Delete w/o WRERE") ;: 
if (eqica.sqiwarna(S] = ‘wW’) 
SLOUTEE (“SOLMARNING: P?79T?"}); 
if (eqloa .sqiwarn[{¢] == ‘W’) 
SLOUTBP ("SQLWARWING: Roliback Required”) ; 
if (sqloa.seqlwarn{7] == ‘'W') 
SLOUTB?P ("SOLWARNTING: Change after query for UPDATE") ; 


} 

ghar *alock () 
[RAARAAAARERRERTANERERAARERHAAREARERERARERERAARAKAARENRARRAERANAARRARNARERARE 
a ® 
Gloak -- Routine that returne the lonatica of the striag e 
* ame with the date and time of this vary nomest * 
i & 
REAAAARAADARARAAAAAAAEREREHEAARRAHERAREERRARAARONERARARERERARDERORRAAREaHER / 
{ 


loag now, tine(); 
ohar *ctime(), *text; 


difdef CEBCKOUT 
prist?(*\aclock °); 


now = time (NULL) ; 
text = atime (mow) ; 
text[24} = ’; 
returs test; 


) 

VCAP IFAL (x) 
[AARAARAERARARARARAAREREREREREAREREAEAAEERERERERAREEAERARERRAERARNAERERAREREE 
e * 
bad VEAPTTAL -- Convert a VARCEAR entered by user to uppercase bad 
® TD aad estore lea e 
« * 


MERAERARRRARRERREAEAARRERREARERRERRRAREAERERRRARRERERDREARERRAREREEEREARERDE / 


VARCEAR *z:; 

{ 

register iut i, 4: 

$ = z->lee © strlen (z->ers) ; 

for (480; 1<9; i++) z->erz[1]) = toupper(z->err{i]); 
} 


SAAAAAARAAAAAAAARARARERAAERAARRARERAERERRERERERRERERERRRARERAERERAEKHATAREAEE 


® ® 
*e These are a set of dummy routines while the program ie under * 
* development. They will be removed in the preductica version. * 
* e 


SAAERARKARAANAARRARRAARERRAERRERAEEDREERREERERRODRARRARREREEARRARESREREEERE/ 


SLOUT? (°Fhis feature is act available in this protectype versica") ; 
} 


fammy? () 

{ 

SLOUT? (*This feature curreatiy runs as a seperate program.“) ; 
} 


[ARRRARAARAARRARRERRERRARAREREREAREARARRRARRERRERREREERARHARREREERERERERAAAHEE 
ts 

utmocav.pa -- Routines dealing with the wonderful world of Um, 
cS DLG, GRASS and such 


This file coatains: 


i. wtm to lat/lea sconaversica (OC _u2ll) routines 
2. lat/leam to utm coaversica (CC_112u) routines 


OG_u2ll_sphereoid (spheroid name) must be called first. sete the 
spheroid paremetere for the ellipsa ‘spheroid name’ (see 


*e fe @ 828 82 8 2 B® 
ee epee ee & Pe BD 
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ses ea evpeeepeaeeoeeoeeae ea ee eee ease eee ese se 


get_epheroid.s for known ephercids) . Puactice is used for 
conversions in either directica. 


CC_u2il_sphereid permeters (2,0) called by OC_u2il ephereid() to 
set the ellipsoid major axis ‘a’ aad eccentricity equared ‘e’ 
ann be called directiy for unknowns ellipsoids. 


CC_uZli some (zcae) must be called before OC_u2ii morth(). set 
wim ‘some’ (must be non-sero). SHegative means southern 
hemisphere. Used to sat the longitude of the ceatral 
meridian (omly used for etm to lat/loa coaversicas) 


OG_u2l1l_ acrth (north) set the utm sorth. Must be called before 
oo _uZzil. 


OS_u2il (east, lat, lom) computes lat, lom fram east after 
OC _u2il north() has already bees called with sorth. 


. Biscellanecus user interface service routines 


leazdes - Convert longitude of COORDINATE wariable to seccads 
deciual 

iat2dec ~ Coavert lJatitude of COORDINATE variable to secacades 
decimal 

alt2dec - Coavart an ALTSPEC VARIARLE’s spec to units and altitude 

convacord - Convert the spherical coordinate character string of 
@ COORDINATE variable to deciual 

coon2rte - Coavert COORDIWATE decimal lat/lon to utms 


eoe*epaevpeseepe ep eases co Peewee e see ee eee eee 3 


RRAARRERARRAAEERERERERERRERARRDEREREREEERERERRERRERAERERERERRRERREDHEEREREEE / 


#include <process.h> /* Header for calls to MS-DOS a/ 


@define SOLCA STORAGE CLASS extern /* @#witch for header files «/ 


SOL BEGIN DECLARE SECTION: /* All SOL declarations are in */ 


URCLUDE hostvars .h: /* these header files a/ 


@iaclude “asen.h" /* Standard ASAN Header File a] 


fidefine abe(x) ((x)<O?- (x) : (z)) 


idefine RADIANS TO SECOMDS 206264 9062470964 
#define SECONDS TO_RADIANS 4.048013681109536e-6 


double 


setatia 


static 


eqrt()}, ein(), aow(); 

double al,a2,a3,a4; /* lat coef: gecdetia to rectifying */ 
double a5 = 5.005; /* €ulee easting (Om) */ 

double ag: {* felee aorthing */ 

double a7 = 0: /* mor &/ 

double a8 = .9996; /* VIM scale factor at cantral meridian a/ 
double af; /* cantral meridian in seconds */ 
double ald; /* radius of curvature */ 

Geuble a11,a012,a13,a14; /* lat ocef: rectifying to qgeedetia */ 
double al3:; /* major ezie t/ 

double als; /* eccentricity squared */ 

deuble bi,b2,b3,b4; /* intermediate values w/ 

double bS,b6,b7,b8; 


double b§,b10,b11, bi2; 


struct ( char *name; 
double a; /* eemi-major axis */ 
Gouble e; /* eccentricity squared */ 
} spheroid!) = 
{ ‘australian’, 6378160.0, O0.0066945419, 
"“bessel", €377739.155, 0.0066743722, 
"alark6éé-, 6378206 .4, 0.0067¢86S6, 
"olark80", 6378249 .145, 0 .0068035113, 
"everest", €377276.345, 0.0066378466, 
“internaticaal", 6378368.0, 0.00672267, 
“wge72", 6378135 .0, O.006694317778 
}: 
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int CC_get sphercid (name, a, @) 
[ARARERRARRAAREEERARAARARARARARARARARKERERERAERREREEENAEEAARNRAARAAARERAAOREE 


e * 
bad Oc _get_ spheroid -- Returus aris and excentricity squared * 
® STH for the named ephereid. Return value * 
* 1 for euccese, 0 for failure to find * 
* the spheroid in the list ® 
* 2 


SARARARAREARERAAAEAERREARERNARAAEREERREERERARRRRRERAAARERRAAAARESHERAHARERER / 


dat m; 
a © sizeof (spheroid) /sizeoft (sphereid[0}) ; 


#itédef CEEBCKOUT 
print? (°\naget spheroid te from 4d entries ", name, a}; 
fendiz 


while (s--) 
i¢ (equal (name, ephercid[n].neme)) { 
*a @ epheroid[n) .a; 
*e = spheroid[a] .e; 
retarn 1; 
@ifdef CHECKOUT 
printf®(" found %d", 2); 
feadiz 
} 


#ifdef CEECECU? 
print?(* mot found") ; 

fendi? 

return 0 ; 


char * OC spheroid name (n) 
[PRARRARRARAARAARARARRAREAERRARREAAAAERRARAAEREERERANRERERERERARERERORNAERERE 


® ® 
® CC spheroid name -- Find the name of sphericd na in the list * 
a EEE * 
* & 


SARARRALLANARATAREREERAEHERERERAERRRARAREEERRARESREREEEEERESOSEREREHADERRERE / 


{ 

af (an <0 |] @ >@ sizeof (spheroid) /sizeof (spheroid[0])}) return 0; 
else return spheroid[a] .name; 

} 


etatic equal (a, b) 


LARARARERERAARARAHAEARARAAEARAERAAAREREAARARARRREKEAEREREREHRARARARAARRERARREE 


* e 
* equal aa ocmparison between two character strings * 
t oa] (Forced to lowercase) bad 
* & 
PARRERERRAARERARRRRERERERERRERREAEDRRAREEERERRARAREREREERERRERERRERARAERERER / 
Ghar *a, *bh; 

{ 

char louse () >; 


While (*a) 1£ (loase (*a++) f= loase (*b++)) retcra 0; 
retura *b == 0; 
) 


etatic char lcase (c) ; 
J PARERARARARARARERAEERARARERARARERRAERRERARRERRHRAAHEAERRERRARRRNERERERRADERE 


@ ® 
loase -- Force character tc lowercase 
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SARARARARAARARARADEREEHEAARAAEERAAREEREAREREERAERERAERERAEEREDERREOORERAREER / 
char a; 

{ 

4f (9c >= ‘RA’ 66 3 me 8’) OG 4m a’ ~ RR’; 

retura a; 


} 


iat OC_w2ll spheroid (spheroid name) 
SARRARERERRAREAEEARRRERRARAERRARARREREERREREERERHAREDAERERKENRARERERNAERAEROS 


& & 
® OC_u2ii_spheroid -- Set up spheroid parmmeters for UM to lat/leag * 
* ae ee given a epheroid name = 
* & 


RERARRARARHARAREERARARAAARARARERARERERAARARAARAAARARARAGRERAEARAAAR aanennnanese / 


cher *spheroid name ; 


{ 

double a,@; 

4£ (CC_get _ spheroid (spheroid name, fa, &e)) /* Znown Sphercoid */ 
return OC _uZli, spheroid parameters (a, @); 

return -1; /* Uaknown Sphereid */ 

} 


dat OC_u21l1 spheroid parameters (a, 0) 
[AARAREDEASARAEREREAHERERRARAAAAARAERRERAAATORRARHARARARARREARARRARARANRRRNRE 


a * 
* OC_u211 spheroid parameters -- Store the conversica parameters ad 
« (RRO pace pe eee ore gives exis end excentricity ® 
e a 
RARAARARAEARARERODE BHARERERARNERERERARRAEEEHRERREREREDEREREREESRRESHRERERRED / 
double a,a; 

{ 

double 2,232,283, x4; 

if (a < 6.0 || @ < 0.0 [| @ > 2.0) retura -2; /* illegal values */ 

aiS = a 

ai€é = e: 

= = (({e * (7.0/32.0) + 5.0/16.0) * a + -3) *e@+1.0}) * a * .25; 

=2 m= ze gz; 

z3 wz 22; 

zi a = ® x3; 


/* coefficiemts to ccavert gecdetia to rectifying latitade */ 


—(((= * (198.0/66.0) + 3.25) * = + 3.78) *# 24 3.0) # =; 
(((1438.0/32.0) * = + 70.0/3.0) * = + 7.5) * x2; 
-((70.0/3.0) + = * (945.0/0.0)) # 23; 
(325.0/4.0) * x4; 


SERRE 
@enue 


/* coafficieats to convert rectifying to gecdetic latitude */ 


ail= (((7.75 - (637.0/66.0) * z) * = - 53.25) * x + 3.0) * =; 
al2 = (((3065.0/32.0) * x - (2181.0/3.0)) * = + 10.5) © =2; 
al2 @ ((151.0/3.0) - (3291.0/8.0) © 2) # x3; 

alé = (108.0/4.0) * zé4; 


/* vadiue of curvature */ 


al0 = (((228.0/64.0) * <2 + 2.285) * =? + 1.0) * (1.0 - 22) * (1.0 - x) @ a; 
retuxa i; 
} 


imt CC_u21l some (xome) 

[ARREREEEARAARARREREREREREARARRERERRARERERERODRERRERERARRERERORRRREREROREROES 
2 * 
* OC_u2zil scone * 
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@ ———ay ae 
« & 
SRERAAAARAAARARERAERARAAEERERAARAARARRERARRARARAAKRERAREERERARRRRREREREEREEER / 
double uts; 
« 


} 
else { 
ag w 0,9; 
wte = 30.0 - soae; 
} 
ad = (uts * 6.0 + 3.0) * 3600.0; 


} 


iat OC_u2l1i north (north) 
[AASAERERARAARAAAAARAAAAAARAATERASAARADAEARAADORAAARESERATAANARRRORNARARARENE 


& = 
a oc _ =z 11 sorth bad 
& ETT 2 
® ® 


RAAAAAARAAAAAARRARERAHERAARARARARRARERRARARRARARARARAARARRARRERRRERRERERARRR / 


double north; 

{ 

double siaw, oosw; 

double t, ts, ra, raz, ra4, rat, ras; 
double etas; 


b10 = ((morth - aS) / a® + a7) / a10; 
&¢ (abe(bl0) > 1.67) 
getura -1; /* rectifying lat exceeds 1.47 radians, ~84.15.30 */ 


einw = ein (b10) ; 

coew = ooe (b10) ; 

biz = coew * coew; 

Dll = (((a16 * DIZ + 213) * DIZ + 212) * BIZ + all) * sinw * soew + b10; 


sinw = sia (b11)} ; 

eosw = ave (bil) ; 

= 060 agrt (1.0 - alétsinwtsiaw) * 1.006 / a1; 
raz ww ra ® re; 

rad = rn2 * ra2 ; 

ruS @ ra2 * rn4 ; 

zaS = raé * rnd ; 

& = ginw/ccew; 

te at* ¢t; 

bi2 = ccoew * acew; 


etas = 016 * bi2 / (1.0 - al6); 


= ra/acew; 
b2 = -t # (1.0 + tas) * rn? / 2.0 ; 
bBo = - (1.0 + te + ts + ates) * bi * rnd? / 6.0; 
ba» (({ -6.0 - etas # 9.0) * etas + 3.0) * te + 
(6.0 - etue * 3.0) * otas + 5.0) *& * rma / 26.0; : 
((tse * 24.0 + etas * 8.0 + 28.0) * ts 
+ etas * 6.0 + 3.0) * b1 © emt / 120.0 ; 
b6 «© (((etas * 45.0 ~ 45.0) * ts + ates * 162.0 -90.0) * ts 
-etas * 107.0 - 61.0) * t # m6 / 720.0 ; 
b7 = -(((te * 720.0 + 1320.0) * te : 
+ 662.0) * te + 61.0) * bl ® rae / 3040.0 ; 
bs = (((ts * 1875.0 + 4095.0) * ts 
+ 3633.0) * ts + 1305.0) # t * ens / 40320.0; 


retura 1; 


ist CC_u2l1l (east, lat, lon) 
{AAAAAARAARARKRRERERAREREERARAARERARRERRRERAREARARERARERAERARERRARAARRERRHERRER 


® * 
* Oc_u2i1 a 
* ———————=3} & 
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eee ee i ee we 


® td 
RARALARAARARGARARERRAEAEEAAREREARRARARRARHAERRARRARERAEAEAERAEAEREREERAREROR / 


double east; 
double *lat, *loa; 
{ 

double bs, b1i0; 


bS = ((a5B - east) * 1.0e-6) / a8 ; 
af (abe (b9) > a15 * 2.0e-7) 
retura -i; /* utm easting to far from center of sone */ 


b1O w bd * be ; 
*let = ((((b8 * b1O + bS) * BIO + b4) * BIO + B2) *# BIO + B12) 

® RADIANS 70 SECONDS ; 
Alcoa = (((b7 * b10 + BS) * b1O + b3) * b1O + bi) * b* 

# RADIANS TO SECOUDS + aD ; 


reteura i; 
} 


dat CO_li2u (lat, loa, east, ancrth, scae) 
Nii titiiiiiiiiiititiiy 


& ® 
& oc _112u od 
® Denese Re ta) e 
& 5] 


ARERERARARRAARARARREHEREERAERARERRERERRERARREDREERARHEREREARRRRARERERREARREE / 


double iat, lca; 
double *east, *aorth: 
aut *scne; 

{ 

fat deg; 

double sizp, cosp: 
double etas, t, ts, ra: 
double al, a2,c3; 


/* 4¢ some if I= 0, force into this scae, otherwise compete the sone */ 


4f (*ncme == 0) = { 
if (lom < 0) { /* eastare rcees */ 
dag » -loa / 3600; 
®zcae = 31 + dag / 6; 
} 
else { /* weeters scaese */ 
deg @ lon / 3600 ; 
*zcne = 30 - dag / S; 


if (lat < 0) *zone © -(*z0me) ; 
} 


/* now, set a6,29 */ 


OC _u2ll sone (*some) ; 
af (abe(lat) > 302400.0) return -1; /* latitude above 84 degrees */ 


b10 = (a9 - lom) * SECONDS TO RADIANS; 
42 (abe (b10) > .16) return -2; /* loagitude to far from center of utm sone */ 


bs = lat « SECONDS TO RADIANS; 


sinap = sin (b9); 

cosp © cos (bs); 

= w= al5 / eqrt (1.0 - al6 * siup * sinp); 

t = simp / sccep; 

te et *t; 

ol = coep * ccep; 

a2 # al * al; 

az - al * a2: 

etes = al6 * al / (1.0 - a16); 

bi = ra * coep: 

b3 = (1.0 - te + etas) * bi # at / 6.0; 

bs = ((te - 10.0) * te + 5.0 + (14.0 - 58.0 ® te) * atas) * bl * a2 / 120.0; 
b7 = (((179.0 -t8) * te - 479.0) * te + 61.0) * bi * a8 / 5040.0 ; 
bi2 = B10 * blo; 


*east. = (((b7 * bi2 + bS) * b1Z + b3) * b12 + bl) * DIO * as + OS; 
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wa*oal *#t / 2.0; 
(etas * (9.0 + 4.0 * atas) + 5.0 - ts) * b2? * al / 12.0; 
((ts - 58.0) * te + 61.0 + 
(270.0 - 333.0 * te) * etae) * b2 * a2 / 360.0; ; 
(((343.0 - ts) * te - 3111.0) * ts + 1305.0) * b2 * ad / 20160.0; . 


ae So 
s 


*aorth = (((b8 * bi2 + bé) * b12 + b4) * BIZ + b2) * biz + 
((((a4 ® 61 + a3) * ol + a2) * cl + al) * simp * cosp + b9) 
@ al0; 


*porth = (*north - a7) * a8 + af; 
retura 1; 
} 


ast loa2zdes (Zz) 
[PRARSAAAAARAAAAAAAAEAATAAAAERERAEAEREREREREAAREREREEAARAATERSOEHEREENERARRERES 


* * 
* lea2zdec -- Convert a COORDINATE VARIABLE’s loagitude to * 
* —— decimal (seconds of ara) * 
® * 
bal Routine unpacks loagitude of the structure, reformats it and then * 
* stores the reformatted ead the converted value in the structure * 
e * 


RARARRAAREAERERREEREREERAARERAEEREREERERRAEREDEERARERREREARRARRARHRARARERERR / 


COORDIRNATE *x; 


print? ("\nlom2dec *); 
fendit 


for (1 = O; 4 <14; 144) z->loa[i] @ toupper (z->loa[ij);: 
if ((2->loagitude = convocord(z->lon)) < OFF_EARTH) { 
4f (z->loagitude > 0.0) x->lom[12] = ‘WwW; 
@elee z->lea[i2z] = ‘BR’; 
} 
elee z->eastiags = -1 .6e75; 
} 


Lat 2dec (x) 
[ARAAERAARARRACARAREREASEAARAAREREREEAAARTAARARERAREERAREEREREREREARAARERREERER 
* 

iat2dea ~~ Convert a COORDINATE VARTARLE’s latitude to 
ae decimal (secoads of arc) 


Routine unpacks latitude of the structure, reformats it aad then 
stores the reformatted and the converted value in the structure 


#3; 3 * *» 2 & 


eo -prees ® 


SRARARARAREAREAEARARARRRARRERAERARARAREREARERARERERERERERAEARERRRERARARARHAD / 
COORDINATE *x; 


{ 
double comvacord({) ; 5 


register int i; 


for (2 — 0; 2 < 16; 44+) z->lat[i] = toupper (z->lat [1]); 
z->latitude = soavocord (x~->lat) ; n 
if (z->latitude < OFF_EARTE) { 
z->lat [oj] = * '; 
if (z->latitude > 0.0) { 
4f (z->latitude > 324000.0) { 
SLocra?(" > 80 "); 
2->northiags = -1.0075; 
} 
else x->lat[i2] = ‘NH’; 
} 
else { 
4¢ (z->latitude < -324000.0) { 
SLOUTB? (" > 80 °); 
2->morthings = -1.0075; 
} 
alee x->lat [iz] = ‘8’; 
) 
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} 
else z->acorthiags = -1.6075; 
} 


izt alt2dec (z) 
[ARARAARAEAEHAARARAEREREEREAARERARRERERERERRERAEREERAARERARRRARARAERRARRERRED 


® * 
bl alt2deo -- Convert an ALTSPEC VARIABLE’s spec to units and * 
* —=s leag isteger value bed 
& « 
* Mote: Use omly to convert values at the time of entry or the stetus * 
* line meesage will make you wonder with great emazement ...... * 
a e 
AARERARAAEAAAREERSERERERARAARERRARRAREARARREDRERERERRARRRARARAARNRERANR ARR / 
ALTEIEC *x; 

{ 


register dat i, 4; 
for (4 = 0; 4 < 10; 44+) 2->epec[4] = touppar (x->epea[4)) ; 


9 = strlen (xz->epea) ; 
=->eltitedea =@ 0; 


for (4 ~ 0; 1 < 3; i++) { 
if (ASsepace (z->epec(i})) ccomtinue; 
4g (isdigit (x~>epeac[i]))}) break; 
4f (z->epec{i] w= A’) { 
estropy(x->epec, "AS ASSG’D *); 
etropy(z->anits, "FED");} 
else SLOUTSP ("Het altitude"); 
getura 0;} : 
af (4 om 4) { 
SLOUTB? (“Ho value”); 
retura 0;} 
do { 
z-paltitude = (10 * z->altitude) + z->spec(i] ~ 48; 
i++;) while (iedigit (x->epec[i]}) 6&6 i < 4); 
for {; i<j; S++) 
af (tisspace (z->epec(i])) break; 
af (4 = 4) { 
SLOUTB? ("Need Reference (MEL, AZ, SFC) or ASSIGFED") ; 
retura 0;} 
if (z->epea(i] == ‘'A’) etrapy(z->units, “AGL"); 
else if (z~->spea(i] = 'M’) stropy(x->units, "MSL”); 
@lee if (z->spec[i] == 'S’) strapy(z-Suanits, “SFC"); 
else return 0; 
eprint? (z->spec, "4041d %e", z-S>altitude, 2->anits) ; 
retura 0; 
} 


double soavocord (x) 
[RARARERAAAARARARARAAREEREARERARERARRERERAARERRRRRRERREREERARERRERARAREREREEE 
2 

eoavacord <-~ Unpack a character etring with « spherical 
a coordinate and return secoads of arc as a double 


Mote: The character string will be reformatted to nnnrnn’an.a"X 
(ae 4m 112230°24.8"8) 


sees 8. © 
a ese @* BD ®D 


RRARAAARERAADAAAERAARARAREERLERGAREARARREREAREEERERRERAARARREREERERERARERREE / 


ghar z{]; 

{ 

aat 1, j, ideg ~ 0, imian = 0; 
double t = 0.0; 


3 © strlen (zx) ; 
for (4 @ 0; 2 < 3; S44) { /* Degrees */ 
if (isepace(z{i])) continue; 
af (iedigit (z[4])) break: 
SLOUTE?E (“Hot a coordinate”) ; 
return (double) OFF_RARTE; } 
af (i = 4) { 
SLOUTRE (“Ho value") ; 
return (double) OFF _ EARTH; } 
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do { 
ideg » (10 * ideg) + z[i] - 48; 
i¢++;} while (iedigit (z[4J]) 64 1 < 4); 


A¢ ((ideg > 180) {| 
((z(4] f=’ °) 66 (a[A] I °D’) 6H (e[i] I= ’\O’) Gh (a[S]}] Tw -8))) { 
SLOUTE? ("7 Degrees"); return (double) Omi _EAR?E; } 


af (2 < 5-1) ¢{ 

24+; 

for (; 2< 3; 44+) { /* Miautes */ 
Af (isspece(z[i])) ocatiaua:; 
42 (Asdigit (x[4])) break; 
SLOUTS? (“? Minutes") ; 
return (double) OFF_EARTH; } 

for { ;iedigit (2[4]) 66 4 < 4; A4t) { 
imin = (10 * 4min) + zfi] - 48; 
} 


Af ((imia > 60) || 
((z[2} f=” °) &6 (efa] te My) Sh (x(d] fe '\"") BE (m{t]} tm “\O"))) ¢ 
SLOUTS? ("? Minutes"); return (double) OFF_RARTE; ) 


} 
ag (2 < 3-1) { 
i++; 
for (; 4 < 9; Att) { /* Secoads */ 


if (ieepace(x[i])}} coutiaue; 
4¢ (Sedigit (x[1})} break; 
RLOUTE? ("? Seccads”) ; 
return (double) OFF_EARTH;} 
for (;iedigit (z[i}}) 66 1 < 47444) ( 
t = 10.0 * € + (double) (z[1]-48) ; 


} 
af (x{i] =m ’.’) { 
i++; 
- 42 (4 < 3) { 
af (Sedigit (x[4})) t t@ ( (double) (x[4]-48)) /10.0; 
it¢; } 
} 


af ((t > 60.0) Ff] 
((z[Aj f= °\0") 6B (m[4] fe °) SE (w[a] Im RB) GH (xf4] Ie °""))) { 
SLOUTR? ("? Seconds"); retura (double) OFF_RARTE;} 
‘4 
af (4 < 4) at: 


for (; 4 < 4; 4st) { /* Zemiephere */ 
tf (tdeepace(x{i})) break; } 


af ((2 =m 9) 10 (eS) =m om’) tt (ela) am wey) ¢ 

eprint? (x, "403d 802d'804.11f\" *, ideg, imia, t); 

return (3600.0 * (double) (ideg} + 60.0 * (double) (imia) + €);} 
e@lee if ((x[4} =m 8’) |] (z{%] =m 'RB’)) { 

sprint? (z, "803d 802d’ 804.11f\" ", ideg, imin, t); 

return (-(3600.0 ® (double) (ideg) + 60.0 * (double) (imin) + €));} 


SLOUTaP ("? Zemisphere") ; 


returm (double) OFF_EARTS; 
} 


iat COOR2utm (x) 

[ARAAAAEERARERNEEAAEERRRERERRARRAARAARRAERARARERARERAARARARRERSRERAAAARRAANAD 

® 

Coorn2zcutm -- Convert a decimal latitude and loagitude to the 

aS corresponding utm sorthing/eastings for en ASAN 
COORDINATE structure 


PARERAREARAAELERAREREARREAAEERERRERDARERERERERRRARERERERREEREARERERAAREEEREE / 
COCEDIMATE *x; 


{ 
ohar *alock(); 


af ( (z->latitude < OFF_EARTE) 6&6 (x->longitude < Orr_EARTE) ) { 


af (CC_li2u (z->latitude, z->longitude, 
&x->eastings, &4x->northings, éubmscons) = 1) return (int) 0; 
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/* %€ 4t Gide’t work, then complaia to the user */ 


alse { 
SLOUTE? ("Coordinate conversica error’) ; 
fprintf (daate,“\nts COORDINATE Coaversica error”, clock ({)) ; 
fprint? (dante, "\a\t\t\tLet @ #12.212 [%0]°, z->latitude, z->lat); 
fprint? (dante, "\a\t\t\tLoag = $12.21£ [te]", z->leagitude, z->loa) ; 
} 

} 

elise { 
SLOUFE? ("Fix bed coordinates first”) ; 


retara (iat) -1i; 


{AAMARAAAAAAAAAERERAEREAHRAEARRERRARARARGERRARERARANERAREREERERARAREERARERRE / 


/* */ 
/* agan.pa -- ASAN Main Progren e/ 
/* */ 
/* 2. Opens the printer. a/ 
/* 2. Galle strtASAN to establish communication with ORACIZ «/ 
/* 3. Verifies that ASAN software is valid. a/ 
/* 4. Calls Uinit to start the screen driver. a/ 
/* 5S. M end of the sessica closes database and prisater s/ 

& a/ 
fp vy 


[AAREAAARARRAARARARRARARSARRARARAARERANDARARARAASARERERERERERARERRARERANEEER / 


#iacliude <stdio.h> /* The usual stuff, of course */ 
#imclude <process .h> /* Seeder for calls to ms-Dos */ 
@iaclude <string.h> /* String manipelatica header */ 


@4nclude <time.h> 


EXEC SOL BEGIN DECLARE sBCTICN; 
ZxXBC SOL TRCIADE citvars.h; 
EXEC SOL EMD DECLARE SECTION; 


EXEC SOL XCTNCLODE SGLCA: /* #8@% Communicatice Area a/ 
@aaclude “asaa.h" “ /* standard ASANW Header file *%/ 
/* Im asan.po it must be here *%/ 
{/* eince we need to initialize */ 
/* character arrays! e/ 


maim () 

{ 

extera int BEA_DEBUG_ FEATURES ; 

dat i; 

statia char *legal_actice[il] = 

q*\n\n\a\n\t\t\t RESTRICTED RiarTs wecmep\a\n", 

"\tUse, dupliastion, or disclosure is subject to reetricticas\a", 
“\t as set. forth in subdivisicn (b} (3) (14) of the\n”, 

"“\t Rights in Technicel Peta and Computer Software Clause\n", 
“\e\e at $2.227-7013 of the DOD FAR Supplement.\a\a’, 
"\t\C\CBRN LABORATORIES INCORPORATED \a", 


e\t\t\t 20 MOULTON STREET\n", 

*\t\e\t Cambridge, MA 02238\n", 

e\t\t\te €17-873-3000\n\a\a", 

= Veer taterface Copyright (C) 1965, BBM Laboratories Iacorporeted\a", 
wVe\e\t All Rights Reserved" }; 

FILE *fopen () ; 


pra = fopea ("prn”, “a") ; 
4¢ (prn om WOLL) {( 
printf ("\nCan’t open printer!"); exit (128); } 


dante = fopena ("chronfil.asft", “a") ; 
af (dante == WULL) { 
priat?(°\nCan’t opem chronfilel"); exit(i28); } 


priaté ("40 [25° , 27); 
for (4 = 6; 1 < 11; i++) printf ("te", legal actice[4]) ; 


printf ("\a\a\a\n\a\t Plasse tap the space ber to continue, \*crwan-e1\"\ 
to abort. \n\n") ; 
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ee ee a a et ee omen 


print? ("ASAN Citatica nodule starting....."); 


EMA DEBUG FEATURES = i; 

etropy (cituid.arr, “DAUTRER/ALIGEIERI") ; 
estuid.lem = striea (cituid.ars) ; 

mxeec sot, CommmEcT :cituid: 


if (sqlca.sqlocde) 
EeDCas ; . 


print? ("\nCaanct Start Citetica Detabese taquiry due to\a\ats\a\a", 


eqilaa.eqilerrm .sqierms) ; 
exit (16) ;} 


ZxBC S8GL SELECT COUNT (entry mum) 


Uiait (}; 

EXEC S961 ROLLBACK WORK RELEASE ; 

exit (6) ; 

) 
[PARERARAARERREREAREAAAREREAHERAERRERERRARERREAREREARAERAERERARAAREARERERAREOE 
* e 
& queryl.pc -- Routines for citation database retrieval without keywords * 
e es. * 
* e 
* This file ccetaias: bl 
a e 
* qeetup - Set up for a new search * 
* qeueryh - Select citaticas frome the Euman area * 
* querye - Select citations from the Animal area * 
* querye - Select citations frem the Structures area * 
® querym - Select citations from the Modeling area * 
bad queryw - Select based on (first few letters of) Writer’s name * 
e queryd - Select besed co the range of Petes given * 
® queeryt - Select based ca the cocurrence of a phruse is the Title ® 
* a 


RARARAARARAAARARARAAREARAREREEKEERERAAAEREREERRARRERERAAKAREARESERARREREREER / 


#include <process .k> /* 
@include <stdio.h> 


fdefine SOLCA_ STORAGE CLASS axtera /* 
EXEC SOL BAGIN DECLARE SECTICH; 
EXEC S91, DNCLODE cit vare .h; 


EXEC 80% EXD DECLARER SECTICN:; 
EXEC SOL DTHCLODE SOLCA:; 


#i4aclude “asan.h" /* 


EXEC SOL DECLARE C100 CURSOR FOR 
SELECT eatry num 


FROM headquarters. 


WERE human erea e 


EXSC SOL DECLARZ C101 CURSOR FOR 
SELECT q.ceatry num 


Reader for calis to Ms~DOSs 


@witah for header files 


Standard AZAW Reader File 


citation search 
’ L. Ad i: 


e/ 


e/ 


*/ 


FROM headquarters .citation search s, qual citi q 
WEERE s.entry num =~ q.emtry num 
AND s.human area = ‘T’ ; 


Exec 8OL DECLARE €102 CURSOR FOR 
SELECT q. entry num 


FROM headquarters. 


EXEC OGL DECLARE C200 CURSOR FOR 
SELECT entry num 


FROM headquarters. 


RRERE eniml area = 


EXEC SOL DECLARR C201 CURSOR FOR 


citation search s, qual ait2 q 
WRERE s.emtry num = g.ceatry num 
AND s.human area « ‘'T’ ; 


citation search 
# L- : 
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6202 


301 


c3oz 


ca0o0 


e401 


C402 


c30sa 


csoo 


cs0i 


C302 


¢c600 


SELECT q.entry_ aus 
FRoM headquarters .citatica search s, qual _citl gq 
WHERE s .eatry aus = g.entry sum 
AND «.aninl area = ‘2’; 


CORSOR FOR 
SELECT q.catry sum 

FROM headquarters .citaticoa search «, qual cit? q 
WHERE o.entry sum © q.catry sum 


AND e.aninl erea = ‘7?’ ; 
CURSOR FOR 
SELECT eat ry_sum 
PROM headquarters .citatica search 
WHERE etruc_srea = ‘?’; 
CURSOR FOR 
SELECT q.entry_pum 
FROM headquarters .citatica search s, qual citi q 
WHERE s.catry num = g.eutry au 
AND s.etruc_area = ‘TT’; 
CURSOR FOR 
SELECT q.entry am 
FROM headquarters .citatica search s, qual cit2 q 
WEERE s.entry num ~ q.entry ou 
amp s.struc_ area @ ‘TP’; 
CURSOR FOR 
SELECT entry sum 
FROM headcuartere .citatica search 
WEERE model _ area w= ‘7’ ; 
CURSOR FOR 
SELECT g.entry awa 
FROM headquarters citatica search s, qual sitll q 
WEERE s.entry nom = q.entry sum 
AED s.model area = ‘7’; 
CURSOR FOR 
SELECT gq.entry sum 
FROM headquarters.citation search #, qual ait? gq 
WEERE s.entry num = g.entry nam 
AND s.modal area = ‘7’; 
CURSOR FOR 
SELECT authoraun 
FROM headquarters author list a 
WEERE UPPER (author) LIKE :pattera; 
CURSOR FOR 


SELECT entry sum 
FROM headquarters author citation link 
WEERE authornum © ;authornum; 


CURSOR FOR 
SELECT q.entry_ cum 

FROM headquarters author citatica_link 1, qual siti gq 
WRERE l.eatry num @ q.entry num 

AED l.authornum * :authorsun; 


CURSOR FOR 
SELECT q.ceatry au 

FROM headquarters author citatica link 1, qual ait? q 
WEERE l.entry au = q.eotry sum 

aD l.authornum = :sauthoram:; 


CORSOR FOR 
SELECT entry num 
FROM headquarters.citatica search 
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i 
: 


EXEC SGL DECLARE C601 CURSOR FOR 


EXEC SQL, DECLARE C602 


EXEC 9GL DECLARE C700 CURSOR FOR 
SELNCT entry am 
raed headquarters .citetica titles 
WHERE UPPER (titie) LIKE :pettern; 
EXEC SQ%, DECLARE €701 CURSCR FOR 
SELECT q.entry aus 
FROM headquarters .citatioca titles ac, qual scitl q 
WEERE c.entry au = q.eantry_num 
AMD UPPEAR(c.titie) LIKE :pattern; 
EXEC SOL DECLARE C702 CURSOR FOR 
° SELECT g. entry au 
From headquarters citation titles a, qual cit2 gq 
WEERE c.eatry num = q.entry pum 


AED UPPER(c title) LIZZ :pattern; 


iat quetup () 

[PARRAARARAASARAARAEAARARERAARARERREREREREREREAEESHEERAARERERERENERREREEREERE 
® * 
* qeetup -- start-up routine that clears all temporary tables * 
e = for intermediate pointers in queries * 
* * 


RARREERAAREAARHAEAAARARRAARARRER RRAARAAAARERARHAAARAAARARARARAAKERAARARRERREHEE / 


{ 
@itdef CEEcKoUT 

printf (“\aqsetup “); 
bendit 


SLOU? ("Purging cobeoclete qualifier liste”) ; 


EXEC #OL DELETE FROM QUAL CIT1; 
if (eqicaa.sqloocde) 
if (eqica.sqicode iw Sgt Bor} { 
ERD CEAMG ; 
SIOUT? (“te", sqican.sgqlerms.eqlerras) ; 
exit (16) ;} 
@#ifdef CEECKCU? 
alee printf ("\nQualifying tablel cleared %1d", sqica.sqiacde) ; 
fenaizr 


EXEC SOL DELETE FROM QUAL CTI¥2; 
4¢ (eqlan .sqlocde) 
af (sqica.eqilcode {= SOL Bor) { 
EMDOMSG ; 
SLOUT? (“%s", eqloa.sqlerrm.sqlerms) ; 
exit (16) ;} 
#ifdef CEECKOUT 
else printf ("\ngualifying table2 cleared $id", sqloa.sqiscde) ; 


qual entries = 0; /* Mo qualifying eatries */ 
temptabl = 0; /* Wo temporary table a/ 
datesl = dates? = 0; /* Ho data */ 

eelerit [0] = ’\o’; /* Ko search peth «/ 
aninals = maraainals:; /* ALL Animals ... a/ 
olddepth = 0; 


ecomtaam[O] = ’\0’ ; 
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majorat [0] = ’\0’; 
minorat{0) = ’\o’; 
address [Oj] = ’\0’; 


Setalt (6) ; 

MEWVALS (} ; 

weturm (int) 0; 

} 

iat queryh () 
[PERRRRAARARREAEAAAREEREDARARERARRARAAHNREDAAAEAREREDEEKELERAERERETORRRERAREA 
* * 
al queryh -- Create the subset of aitaticas for the titles that * 
& amos pertain to the HUMAN area 
& * 
SARSERANARAAAAAEDALAN NRA EHERRERRERERORERREREEERAEREREAHERRERERRORRRRhKEe / 
{ 

dat i; 


#ifdef CEBCEOUF 
Priat? (“\aqueryh °) ; 
@endir 


SLOUT("Zumen Area Search") ; 
etroat (selcrit,“Ewean “) ; 
ewitch (temptabi) { 
case 0: 
EXeC 86%, OPEN €100; 
if (sqlcaa.seqlocde) { 
 EEpoMsG; 
SLOUTP ("CURSOR ©100°) ; 
SLOUT? ("ts", eqicaa.sqlerme.sqlerma) ; 
) 
qual_entries < 0; 
for (77) { 
EXEC SOL FETCH C100 into :eaumb; 
if (eqloa.sqicode == sgt SOF) break; 
if (eqlaa.sqlacde) { 
ZeDoMsG ; 
SLOUTP (“CURSOR €100°) ; 
SLOUT? ("%e", sqica.sqlerrm.sqlerms) ; 
} 
EXEC SOL INSERT TTPO QUAL CTT1 (entry num) VALUES (:emumb) ; 
if (eqlca .sqlcede) { 
Eapceaea ; 


SLOUTP (“%e", sqica.sqlerrmm.eqlerme) ; 
} 
@ifdef CHECKOUT 
printf? ("\pAccepted °); 
for (4 = 0; 1 < 5; 444) priat? (“%tc", emumb .arr[i}) ; 
fendi¢ 
qual eatries++; 
REWVALS () ; 
} 
REBC SOL COMMIT WORK: 
EXEC 86L CLOSE C100; 
temptabl = 1; 
break ; 


anase 1: 
EXEC SOL DELETE Frost QUAL CTP2 ; 
EXEC SOL COQC?T WORE; 
EXEC SOL OPEN C101; 
if (eqlca.eqicode) { 
SRDCMSG;: 
SLOUTP (“CURSOR C101"); 
SLOUTP ("%e", eqica.sqlerm.eqlarmns) ; 
} 
qual entries = 06; 
for (;;) { 
Exec SOL FETCE C101 into :enumb; 
if (eqlaa.sqlcode ==» SOL EOF) break; 
if (eqlca.sqicode) ( 
SLOUIP (“CURSOR C101") ; 
SLOUT? ("%e", eqica.sqlerza.seqlerms) ; 
@zit (16) ; 
} 
EXEC SQL INSERT INFO QUAL Crv2 (entry num) VALUES (:emumb) ; 
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if {eqlan .eqliacde) { 
mmapceeeG ; 
FLOUT? (°¢s", eqiaa.eqlerm.eqlerzms) ; 
exit (16) ; 
} 
@itdef cuscKourT 
print? ("\aAccepted *) ; 
for (4 = 0; 4 < 5; 44+) print?’ (°tc°, enueb.arr[i]); 
feadir . 
qual entries++; 
MEWVALS () ; 
} 
EXEC SOL CcaacrT WORE; 
Exec SOL CLOSE Ci01; 


temptebl = 2; 


SLOVTP (“CURSOR C102") ; 
SLOUTP("86", eqica.eqlerm.sqlermsc) ; 
exit (16) ; 
) 
qual entries = 0; 
for (;;) { 
EXEC SOL PETCH C102 into :emumb; 
Af (eqica.sqlooda «= 80% BOF) break: 
4 (eqlca.eqlocde) { 
pases ; 
SLOUTP (“CURSOR €102°) ; 
SLOT? (“%e°, eqiaa.eqlerrm.sqlerme) ; 
exit (16) ; 
ee SQL INSERT DFFO QUAL CIT1 (entry uum) VALUES (:emumb) ; 
if (eqlioca.sqloode) { 
pce : 
SLOUT? (“%e", eqlca.sqlerm.sqlermas) ; 
@xit (16); 
} 
@itdef CEBCKOUr 
print? (°\nAccepted °) ; 
for (1 #2 0; 4 < 3; 144) printf? (“¢c", enumb.arz[i]); 
feadir 
REWVALS () ; 
qual eatries++; 
) 
EXEC SQL CCOOMEIT WORK; 
EXEC SG! CLOSE C102; 


temptabl =» 1; 
break; 
default: 
bed temp () ; 
} 
$ifdeft CEECKOUT 
priatf®(" td emtries in table %d", qual eatries, temptab)) ; ? 
SLOUT? ("hak") ; 
Pendirc 
retura (int) qual eatries; 
iat querys () 
[RERAAAARRARAREDRAAERRERHERRAREREAEREAREREERRAREDERAKARRATRERRARAERREDRERREREE 
a * 
® querye -~- Create the subset of citations for the titles that bal 
od es pertain to the ANIMAL eres ® 
* * 
BA OARARERARAEARERENERRORRERERERAREREDRERERRAREEREREERERRENERRERENRERERRERREE / 
{ 


@ifdef CHECKOUT 
printf (*\nquerya °); 


SOUT ("Animal Area Search") ; 
etreat (selcrit, “Animal “); 
ewitch (temptabi) { 
ense 0: 
EXEC #01 CPEN C200; 
&f (sqlon.sqloode) { 
SLOUFP (“CURSOR C200") ; 
saepcaesa ; 
SLOUTP (°4a", sqice .eqlerm.sqlerms) ; 
) 
qual eatries = 0; 
for (77) { 
SXBC SQL FETCE C200 isto :emumb; 
if (sqlca.sqicoode == SQL BOF) break; 
if (eqlos.eqloode)  { 
SLOUTP ("CURSOR €200°) ; 
mca ; 
SLOUT? ("%e", sqloa.sqlerm.sqlierms) : 
} 
EXBC 801. INSERT INTO QUAL CIT1 (emtry sum) 
if (sqliaa.sqicode) { 
RDG ; 


SLOOT? ("4s", eqica .sqlerm.sqlerrms) ; 


EXEC SQL FETCE C201 iato :enumb; 
if (eqica.sqloode == SQL BOF) break; 
af (sqioa.sqicede) { 
mEDCesG ; 
SLOUTP (“CURSOR C201") ; 
SLOOTP (°te*, eqica.sqlarm.eqlerms) ; 
} 
EXRC SOL INSERT INTO QUAL CI?2 (eatry sum) 
if (eqlca.sqicede) { 
wapceesa ; 
SLOOT? ("S8°, eqica.eglerm.eglerme) ; 
} 
qual _entries++; 
} 
EXEC SOL COOMEIT WORK; 
EXEC SOL CLOSE C201; 
temptabl = 2; 
break ; 


¢ 


case 2: 
EXEC SGI DELETE FROM QUAL CIT1; 
EXEC SQL CCOIT WORK; 
Exec #01. OPEN C202; 
if (eqloa.sqloode) { 
SLOUTP (“CURBOR C202°) ; 
ReDCsasG ; 
SLOUT? (“%e", sqica.sqlerrm.sqlermas) ; 
} 
qual entries = 0; 
for (;:) { 
EXEC SOL FETCH C202 dato :enunmb; 
4¢ (sqlca.sqloode =» SOL BOF) break; 
4¢ (eqlca.sqiccde) { 
SLOUTE ("CORBOR C202") ; 
ERDOMSG ; 
SLOUT? ("%e", eqlca.sqlerm .sqlerzmes) ; 


} 


VALUES (:enunb) ; 


VALUES (:emumb) ; 


EXEC SOL INSERT TO QUAL CIF1 (entry mum) VALUES (:emumb) ; 


if (eqica.sglocde) { 
DCS ; 
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SLOUTP ("40°, eqica .sglerra .sqlermas) ; 
} 
qual entries++; 
) 
EXEC SOL CCOOMEXT WORK; * 
MXEC 90% CLOSE C202; 
temptabl = i; 


@itdet CEECECUT 
print? (" %d emtriese in table td", qual entries, temptabl) ; 


fendair 
return (int) qual entries; 
} 
ist querys () 
[AAARARAARARARARERAEAREGERERAERARERAAERHEEEAKERAARADAAARARERARARRARARAORERANE 
e 
* querye -~- Create the subset of citations for the titles that * 
a ee] pertain to the SYRUCTORES area ® 
c) ® 
AAAAAARARARARAEEREREREARERREREERAAREARARREOHRERERREORERENERREREEREREE NER REES / 
{ 
@ifdet cCEBCEKDUT 
print? (°\aquerys “) ; 
SLOUT ("Structures Area Search") ; 
stroat (selarit, “Struct °),; 
ewiteh (temptabl) { 
case 0: 
EXEC SOL OPEN C300; 
af (sqlca.eqiocde) { 
SLOUTP (“CURSOR C300") ; 
Waepceee : 
SIOUTP ("te", eqica.sqlerm.eqilerma) ; 
} 
qual entries = 0; 
for (7;) { 
ExXRC SOL FETCE ©3000 iato :emumb: 
if (eqlca.sqlcode == SOL EOF) break; 
if (eqica.sqlccde) { 
mpoassG : 
SLOUTP (“CURSOR C300") ; 
SLOUT? ("%e", eqica.sqlerm.sqlerras) ; 
} 
EXEC SQL INSERT INTO QUAL CIT1 (emtry_aum) VALUES (:emumb) ; 
4f (sqlca.sqicaede) { 
mapcaasa ; 
SLOUT? (“te", eqica.sqlarm.sgilerms) ; 
} 
qual, eatries++; 
} 
EXEC S6%. COhacr?t WORK: * 
EXEC SOF. CLOSE C300; 
temptabl = 1; 
break; 
oage 1: 


EXEC OGL DELETE FROM QUAL CIT2; 
ExEC® 80%, COM@CIT WORK; 
EXEC SOL OFEN C301; 
if (sqlca.sgqlcode) { 
SLOUTP (“CURSOR C301") ; 
Eee ; 
SLOUT? (*ts", eqica.sqlerrm.sqlerme) ; 
} 
qual entries = 0; 
for (;:) { 
EXEC SOL FETCH C301 into :enumb: 
if (sqlca.sqlcods == Sou EOr) break; 
4f (eqica.sqlcode) { 
SLOUTP (“CURSOR C301") ; 
miponesG ; 
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SLOUT? ("%e", sqice.seqlerm.sqlerms) ; 

} 
REBC OGL INSERT Orro QUAL CI?2 (emtry mum) VALUES (:emumb) ; 
4¢ (sqlca.sqicode) { 

maces ; 

SLOUTP ("te", sqilon.sqierm .eqlerms) ; 


if (sqlca.sqiccde) { 
SLOUTE ("CURSOR 6302°) ;: 


mapceasa ; 
SLOUT? (“%s", eqloa.seqlerm.esqlermae) ; 
) 

qual entries = 0; 

for (:;) { 


RXBC SQL FETCH C302 into :enwnb; 
if (eqlaa.eqlcode «=» SOL Bor) break; 
1 (sqlea.eqicoda) { 
SLOUTE ("CURSOR €302°) ; 
MDs ; 
SLOUTP (“ts", eqlca.sqlerm.sqlerms) ; 
} 
EXEC SOL INSERT UFFO QUAL CIF1 (emtry mum) ‘VALUES (:emumb) ; 
if (eqlca.sglcode) { 
MEDOMSG ; 


SLOUT? (“8e", eqica .sqlerzm.sqilerms) ; 
} 
qual, eatries++; 


} 
EXEC SOL COMMEI? WORK; 
RXRC SQL CLOSE C302; 


print? (* %d entries in table td", qual eatries, tempteb}l) ; 


#endit 

retaura (int) qual _entries; 

} . 

tat quarym() 
[PARAARARRERRREORARARAERARADAERRERREAEERERRARERE RRNA EREREORORERARRARERARERRS 
‘t * 
* querya ~-- Create the subset of citations for the titles that * 
s a pertain to the MODELING area * 
* * 


AERRAAHAREAAAAEEERARARERARERRRAREDARERRRRERERERERREERARREANAREREERE ae enennn / 


{ 


#itdef cCuscKOUT 
priatf£("\nquerym °); 
fendif 


SLOUT (“Model Area Search") ; 
etroat (selcrit, “Medel "); 


owitch (tamptabl) { 
case 0: 
EXEC SOL. OPEMW C400; 
if (eqlaa.sqloode) { 
SLOUTP ("CURSOR C400") ; 
EMDOMSG ; 
SLOUTP (°%¢e", eqica.sqlerm.eqlerzs) ; 
} 
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qual entries = O; 


for (;:) { 
EXEC SOL FETCH C400 into :emumb; 


af (sqica.sqloode == @OL EOF) break; 
af (eqica.sqlocode) { 


) 
EXEC S8OL INSERT INTO QUAL CITi (entry num) VALUES (:amwab) ; 
if (sqica.eqlccde) { 
mapas ; 
SLOUTP (*%te*, eqica.sqlerr .sqlerms) ; 
} 
qual eatrisee++; 
} 
EXEC Ot. COAG? WORK; 
Exec S861 CLOSE C400; 
temptabl = 1; 
break; 


’ 


ease 1: 
EXEC SG, DELETE PROM QUAL CIT2; 


REEC 80%, OCORETT WORK; 
EXEC SOL OPEN C401; 
if (eqlan.sqiocde) ( 
SLOUT? (“CORBOR C401") ; 
mpc ; 
SLOUT? ("te", sqicaa .sqlerm.sqlerms) ; 
} 
qual entries = 0; 
for (77) { 
EXEC SOL FPETCE C401 into :emumb; 
if (eqica.seqloode == SOL BOF) break; 
af (sqioa.sqioode) = { 
SLOUTP ("CURSOR C401") ; 
ZDOMSG ; 
SLOUTP (*%e", eqicas.sqlerre.sqlermasc) ; 


} 
EXEC SQL INSERT INTO QUAL CIT2 (emtry mum) VALUES (:emumb) ; 


if (sqica.eqiacde) { 
TOEDOCAERG : 
SLOUT? (°%e*, sqica.eqlerm.sqlerrauc) ; 
} 
qual entries++; 
} 
EXEC SOL OGh@EI? WORK; 
EXERC S61 CLOSE C401; 
temptabl = 2; 
break ; 


’ 


ease 2: 
EXEC #01 DELETE FROM QUAL CIT1; 
EXEC SOL COMMIT WORE; 

EXEC SOL CPEN C402; 
if (eqlca.sqicede) { 
BLOUTP (“CURSOR C402") ; 
mpc ; 
SLOUTE (°ts", egqiaa.sqlerm .sqlerms) ; 
} 
qual eatries = 0; 
for (;;) { 
RXEC SOL FPETCE Cé02 into :emumb:; 
42 (sqica.sqlocde == SgL EOF) break; 
if (eqlca.sqicode) { 
SLOUTP (“CURSOR C402°) ; 
aca ; 
SLOUT? ("%te", eqica.sqlerm.sqlermsc) ;: 
} 
EXEC SOL INSERT INTO QUAL CI¥l (entry num) VALUES (:emumb) ; 
4¢ (eqica.sqicede) { 
Epes ; 
SLOUTP (°40", sqica.eqlerra.eqierrs) ; 


} 
qeal entries++; 


} 
EXEC SQL COMMIT WORK; 
EXEC SQL CLOSE C402; 


temptabl = 1; 
breek ; 


default : 
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bed _tamp(); 
} 


Gitdef cEBCKOUT 

printf (° td eatries in table %4”, qual entries, tamptabl) ; 
Gendit 
return (int) qual entries; 


} 

iat queryw() 
[AAERRAERAARARERERREREAAEARAAARAAERRARARARARHAREERERAORARAARERARRERRARERRAREER 
* e 
* queryw -- Create the eubset of aitations for the author(s) whose Ld 
bad ceed aama(e) look like the pettera given in “authormam” ® 
e a 
RARERAARAARAERERERREEHEAHRAAREERERERAREREREREREREAARARRARARERARARRREREREREER / 
{ 


for (4 = 0; 4 < authornam.lem; i++) { 

af (eauthornam.arr[i] f= ' °) Dreak; 

for (4 = 1: 3 < authornem.lem; 4++) 
authorne.arr[j-1] = authorsem.arr[4); 

suthornan.ile--; 

authornem.arrf{authornms.les)] = '\0’; 

@itdef cERcKouT 
printf ("\ats (%u)°, authorna.arr, avthornam.len) ; 
SLOUTP (“Ack”); 

feadir 


) 
42 (tauthornaam.iea) return (int) “2; 


etropy (pattern.arr, sauthornam.err) ; 

etroat (pattern .arr, “%") ; 

pattera.lea = striees (pettern.arr) ; 

for (1 = 0; i < peattera.len; 1++) pettern.arr[i] = toupper (patters.arr[i]) ; 
SLOUT("Amthor Search”) ; 

stroat (selcrit , pattern .arr) ; 


RERC OQL. CPE CSOs; 
42 (eqloa.sqicedea) { 
SLOUT? (“CURSOR CS508°*) ; 
EDCOMSG ; 
SLOUT? ("tae", sqloca.sqierm.sqlerms) ; 
@xit (16); 
} 


qual entries = 0; 

if (tempteabi = 1) { 
EXEC SO], DELETE FROM QUAL CT?2; 
} 

else { 
EXEC SOL. DELETE FROM QUAL CIr?i; 
} 

ZxmC SOL COMMIT WORK; 


EXEC SOL FETCH CSOs into :authornun; 
4f (eqica .eqlacde) { 
if (eqica seqilcode ie SOL BOF) { 
EDC 
SLOUTE (“CURSOR C500") ; 
SLOUT? (*ta", sqica.eqlerm .eqlerras) ; 
e@xit (16) ; 


@ifdef CHECKOUT 
print?’ ("\nCcmpering table td for Author number “, temptab)l) ; 
for (4 8 0; 4 < 3; 444) printf ("tc*, authornum.arr[i}); 
fendi? 
ewiteh (temptabl) { 


cage 0: 
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=xec S61 COMM C500; 
af (eqlca.sqilocde) { 
SLOUTP (“CURSOR ©500°) ; 
Secs ; 
SLOUT? (“%e", aqica.sqlerm.sqlerms) ; 
exit (16); . 
} 


for (:;) { 
ExEnC 801, PITCH CSOO isto :enunb; 


4f (eqlca.sqicode == SQL Bor) break; 
if (sqica.sqicode) { 
SLATE (“CORBOR CBO") ; 
ExDCaiBS - 
SLOUT? ("te", sglaa.sqierm.aqilerrmns) ; 
exit (16); 
} 
RXEC 86% INSERT TFTO QUAL Crzi (entry mum) VALUES ({:enunb) ; 
42% (sqlos.sqicacdea) { 
macnn ; 
SLOUTP (“ta", sqica.sqlerm.eqlermas) ; 
exit (16); 


for (4 = 0; 2 < 8; i++) printf’ (°%ta", enumb .arr[i}) ; 
endif 
EXEC O61. COOMEIT WORK; 
Af (eqlce.sqloode) ( 
maDceesG ; 
SLOUTP (“te°, eqlica.sqierm .sqlerms) ; 
e@xit (16) ; 
co peree earee 
MEWVALS () ; 
sea SQL CLOSE C500; 
break ; 


ease 1: 
Exec 801 OPEN CS01; 
Af (sqloa.sqloode) { 

MROOMSG ; 
SLOUTP ("CURSOR C301") ; 
SLOUTP ("“te", seqian .eqierm.sqiermns) ; 
} 
for (7:7) { 
EMEC OGL. FETCE C501 into :emumb; 
if (sqica.eqlcode == SOL EOF) break; 
af (sqlca.sqicode) { 
SLOUTE ("CURSOR C501") ; 
mapa ; 
SLOUTP ("te", sqica.sglerrs.sqilermc) ; 
exit (16) ; 
} 
EXEC SQL INSERT INTO QUAL CIT2 (amtry num) VALUES (:emumb) ; 
af (eqlaa.aqicode) { 
iGepcaenG ; 
SLOUTP ("%e", eqlon .sqlerte.eqlerzmss) ; 
} 
Gitder CEECKOUT 
priat? (*\naAccepted °); 
for (4 2 0; 2 < 35; i++) print? ("%o°, emumb.arr[i]); 
Sendit : 
EEEC SOL COROT WORK; 
af (eqlaa.eqlceds) { 
maaponasG ; 
SLOUT? (“ta", eqlca.eqlerm.sqierms) ; = 
exit (16); 
) 
qual ent ries++; 
MRWVALS () ; 
} 
EXEC SOL CLOSE C501; 
break; 


aase 2: 
ZxeRc 80% OPEN CSO2; 
if (aqilaa.sqloocde) { 
ERDOMSG ; 
SLOUTP (“CURSOR C802") ; 
SLOOTP ("ta", sqica.sqlierra.eqlerras) ; 
@eit (16); 
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} 
for (37) { 
EXEC SG, FETCH CS02 iato :enumb; 
af (eqica.sqicode == 99% BCH) break; 
4f (sqlaa.eqlaeda) { 
SLOUTP ("CURSOR C502") ; 
EmpcaesG ; 
SLOCT? ("%ts°, eqioa.sqierm .eqlermas) ; 
exit (16); 
} 
EXEC SQL INSERT IFTO QUAL CYT1 (emtry_ sum) VALUES (:enumb) ; 
4¢ (eqica.sqilcode) { 
EDOMAG ; 
SOUT? ("%e", sqloa.eqlerm.eqlermas) ; 
@xit (16) ; 
} 
@4fdef cCascxooT 
print? (*\nAccepted °); 
for (2 = 0; 4 < 8; 144) print? (*ta", emumb.arr[i]): 
Sendir 
Exec SOL COOMErT WORK; 
4£ (sqica.sqlocde) { 
mEDCasG ; 
SLOUT? (“%s°, sqica.eqlerm.sqlerms) ; 
exit (16) ; 
} 
qual_entries++; 
MEWVALS () ; 
} 
EXEC SOL CLOSE C502; 
break ; 


Gafauit : 
bed temp (); 
} 


EXEC SOL FRTCE CS0e INTO :authoruun; 
} while (!feqica.sglocde) ; 
af (sqloa.sqicode t= Sot Bor) { 
EDOMsSG ; 
SLOUTP (“CURSOR CSOs") ; 
SLOUTP (“%e", sqica.sqlerm.sqlerzmec} ; 
@xzit (16) ; ’ 
) 
} 
EXEC OGL CLOSE CSOs; 
@ifdef CEECKOUFT 
print?’ (*\a0ld table %d°, temptabl) ; 


temptabl = (temptabl ¢ 2) + 1; 
#ifdeft CEBCcKOUT 
print?’ (" td emtries i= table 4d‘, qual _ entries, temptebl) ; 


@endir 

return (int) qual entries; 

} 

dat queryd() 
[RARRAARARERARARARADRERRARARERRRAEREERREDRRERERADHENTAREEEEAREARERRORERERRORE 
* ® 
* queryad -- Create the subset of citatioas for citaticas that ware * 
* ae Published betwaea two years * 
e 2 


RERARERERAARARAEREARRARAERAARAERERRARARERAREKNAE Shtkaneananasean RHAADAHARRRANE / 


{ 


Hiidef CEECKOUT 
print? (“\nqueryd °) ; 
Gendizr 


if (detesi > dates?) { /* Check ca the ordar of the dates o/ 
ae (dates?) { 
eprint? (datel arr, °%4d" , datas?) ; /* They are cut of order */ 
eprint £ (date2 arr, “t4d", dates) ; } 
elee { 
eprint £ (datel arr, “%4a", dates}) ; /* Caly cae date entered */ 
strapy (date? .arr, °2000") ; } 
} 
alse { 
Af (dates2) { /* There is a seccad date specified */ 


eprint?’ (detel .arr, “t4d", duteel); /* They ere in order t/ 
eprint? (date2 .arr, *%4d", dates2) : } 
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elee return (imt) -1; /* They axe beth sare! (or negative) 
} 

dGatel.ien = dete2.len = 4; 

etroat (ealerit,°/"); 

etrcat (selorit, datel.arr) ; 

etroat (selcrit,"/"); 

strcat (selcrit, date? .arr) ; 

SLOU? ("Date Search") ; 


EXEC SQL OPEN C600; : 
4f (sqloa.sqlocde) { 
SLOUTP (“CURSOR C600") ; 
EMDOMSG; 
SLOUT? ("%e", eqlca .sqlerm.sqlerms) ; 
} 
quel eatries = 0; 
for (:;:) { 
EXEC OOL FRTCE C600 into :emumb; 
4f (sqlan.eqloode «= sgl, BOF) break; 
4f (sqlan.sqlocde) { 
SLOUTP (“CURSOR C600"); 
map ; 
SLOUT? (°%e°, eqloa.sqlerre.eqlerms) ; 
EXEC SQL INSERT PFO QUAL CY¥l (emtry_num) VALUES (:emumb) ; 
4¢ (eqloa.sqiacde) { 
=DcaeG ; 
SLOUTP ("te", sqloa.sqlerm.sqlerrns) ; 


} 
qual entriese++ ; 


} 
EXEC SQL CCOMEIT WORK; 
RXEC SOL CLOSE CEO00; 


temptabl = 1; 
break; 


ease 1: 
EXEC SOL DELETE FROM QUAL CI?2; 
EXEC SQL COMMIT WORK; 
xxeC SOL OPEN CE01; 
4f (eqlan.sqiccdea) { 
SLOUTP (“CURSOR C601") ; 
iIneaesG ; 
SLOUT? (°te’, sqica.sqlerm.sqlarme) ; 
} 
qual entries = 0; 
for (;;) { 
EXEC SOL FETCH C601 isto :enumb; 
if (sqica.sqlcedea == SOL EOF) break; 
42 (eqlas.seqlccde) { 
SLOUTP (“CURSOR C601") ; 
REDCRMSG ; 
SLOUT? ("%e", sqica .eqlerr.sqlerms) ; 
} 
EXBC SQL INSERT DFTO QUAL CIT2 (entry num) VALUES (:enumb) ; 
Af (sqlasa.sqlocde) { 
ERDOCM«SG ; 
SLOUTP ("%ts", eqloa.sqlerra.sqlermnc) ; 
} 
qual entries++; 
} 
EXEC SQL COMMIT WORK; 
EXEC SQL CLOSE C601; 
temptabl = 2; 
break ; 


ange 2: 

EXEC SQL DELETE FROM QUAL CIT1; 

EXEC #07. CCOMCIT WORK; 

EXEC SOL OPEN €602; 

Af (eqica.sqiccde) { 
SLOUTP (“CURSOR C602") ; 
ERDAS - 
SLOUT? (“te", eqica.sqlerrmm.sqlermas) ; 
} 

qual_entriase = 0; 
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«/ 


for {::) { 
EXEC S01 FETCH C602 isto :enunb: 
if (sqlca.sqlcode == #91 BOF) break; 
4f (eqias .eqloode) { 
SLOUTP (“CORSOR CE02°) ; 
mapas ; 
SLOCT? (“te", sqica.sqlerm.eqlermnac) ; 
} 
EXEC OQ% INSERT INTO QUAL CIT1 (emtry mum) VALUES (:enumb) ; 
1€ (eqloa.sqlocde) { 
MDonsG; 
SLOUTP ("%e", eqlon.sqlermm.sqlerms) ; 
} 
qual entrias++; 
} 
EXEC SOL COlQET? WORK; 
REBC SOL CLOSE CEO2; 
temptabl = i; 
break ; 


, 


@iftder cuncecor 

printf’ (" $d estries in table td*, qual _ eatries, temptabl) ; 
fendir 
return (int) qual entriae; 


} 

iat. queryt () 
[AAAERRARRARAREARERARHERERELEREREDERRERRRERERRARERRHERRARKOREEREERARARRERAREE 
« * 
® queryt -- Create the subset of aitations for the titles that * 
® EE tain the phrase givea in "title frag” * 


BARRA ANAAENARARAARARAANNNAR ERED RERORERENRARERERARERNNHERERAERERENERAHERERED/ 
{ 
register iat i, 4; 


@itdet cuncnceur 
printf (“\aqueryt °); 
§endi.¢ 


titlefrag.lea « otrlea (titlefrag.arr) ; 
for (14 = 0; 2 < titlefrag.lea; itt) { 
if (titlefrag.arr{i1] != ° °) break; 
for (j= 1; 4 < titlefrag.len; 3++) 
titlefrag.arr[4-1] « titlefrag .axrr [4]; 
titlefrag.len--; 
titlefrag.err(titlefrag.lea}) = ’\0o’; 
@igdef CEECKCUT 
prist?’("\ntu te°, titlefrag.lea, titlefrag.arr) ; 


} 
if (ltitlefrag.iem) retura {amt) -1; 
stropy(pettern.arr, °"%"); 
etroat (pattern arr, titlefrag.arr); 
treat (petters.arr, "%") ; 
patterns .lea = strlen (pattern .arr) ; 
for (4 = 0; 4 < paettarn.lea; i++) petters.arr[{ij = toupper (pettern.arr[i]); 
stroat (selarit, pattera.arr) ; 
@ifdef CEECKOUT 
priat¢("\%w te", pettern.lea, pattern .arr) ; 


SLOUT (“Title Search") ; 
switch (temptabl) { 
ease 0: 
Exec #0%. OPEN C700; 
if (sqloa.sqloode) { 
SLOUTP (“CURSOR €700") ; 


MD OMSG ; 
SLOUTP ("te", Sqica.eqlerrm .sqlerzns) ; 
} 

qeal entries = 0; 

for (;;) { 


EXEC SQL FETCH C700 into :emusb; 
if (sqlca.sqlicode == sou, EOF) break; 
af (eqlaa.sqilocoda) { 

SLOUT? (“CURSOR C700") ; 


Repos ; 
SLOT? (“%e", eqica.eqlerm.sqierms) ; 
) 


EXEC SOL INSERT DFTO QUAL CrTl (emtry sum) VALUES (:emumb) ; 


af (sqloa .eqlocde) { 
Bee caisG ; 
S2LO0TF ("ta", sqlca.sqlerm.sqilerzms) ; 
} 
qual entries++ ; 
} 
EXEC S861. CCOMKIT WORK; 
EXRC 80% CLOSE C700; 


temptabl = 1; 


agi cceact? WORK: 
So, OPEN 701; 
af (eqica.sqicede) { 
SLOUTP ("CORSZOR CTOL") ; 
REIDORNG ; 
SLOUT? ("4e", eqloa.sqlerm.sqlerms) ; 
} 
qual estries = 0; 
for (:;) { 
Zxeac #61 FETCH C701 into :enumb: 
if (eqlas.sqlooda «= S91 BOF) break; 
4f (eqlea.aglacde) { 
SLOUT? ("CURSOR 6701") ; 
2DO8esG ; 
SLOUT? ("te", eqlica.sqlerra.eqlerms) ; 
} 
EXEC SQL DNSERT urro QUAL Crr2 (eatry num) 
4¢ (sqioa.sqlacde) { 
mpceesG ; 
SLOUT? (“te*, eqloa.sqlerze.sqlerrms) ; 
} 
qual entries++; 
} 
Exec 86L CCeaer? WORK: 
EXEC SOL CLOSE C701; 


temptabl = 2; 
break ; 


ease 2: 
EXEC SOL DELETE FROM QUAL CI?2; 
=xECc 
zxEc 


case 2: 
EXEC SQL DELETE FROM QUAL CIT1; 
EXEC S01. COMMIT WORK; 
EXEC SOL OPEN C702; 
Af (eqloa.sqiccde) { 
mpcaanG ; 
SLOUT? (“CORSOR €702°) ; 
SLOUTF ("%e", sqlicea.sqlerrm.eqlerrmas) ; 
} 
qual eatries = 0; 
for (77) { 
RXEC SOL FETCH C702 into :enumb; 
if (eqica.sqlocde == SOL BOF) break; 
af (aqlea .eqiacde) { 
SLOOTP ("CURSOR ©7062“); 
mampceesG ; 
SLOOTP (°8e", sqica.sqlerm.eqlerms) ; 
} 
Exec SOU INSERT DFTFO QUAL CITi (entry nem) 
if (sqiaa.sqlcede) { 
=—pCaasG ; 
SLOUT? (°%e", sqlca.sqlerm .seqiermas) ; 
} = 
qual _entries++; 
} 
EXEC SOL Ccaact? WORK; 
REBC S61. CLOGE ©7062; 


temptabi = 1; 
break ; 


4afanlt : 
bed temp () ; 
} 


@ifdef CEECEOUT 


VALUES (:emumb) ; 


VALUES (:emumb) ; 


print? (" %d entries in table $d", qual entries, tamptebl) ; 


fendif 
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vetura (int) qual entries; 


iat bed temp () 

{ 

ahar meg [60]; 

eprint? (meg, "Bad temporary table ideatifier %5d used!", temptabl); 


exit (26) ; 

Oia a aa i ee a teh md ae 
® * 
* queryal.po -- Routines for citstica database retrieval ia the e 
a ‘SA SURE animal area usiag the taxzxcacmy table « 
e ® 
e This file coatains: * 
* & 


PET itis iii iti i iii itiititiitiy | HARAARAARKENAARKAANAADAESS / 


@isclude <process .h> /* Seeder for calls to MS-DOS a/ 
@iaciude <stdio.h> 
include <ctype.h> 


(define SOLCA STORAGE CLASS exters /* Switch for header files a/ 
EXEC 986% BEGIN DECLARE SECTICN: 


EXEC OGL. TUCLUDE aitvare.h; 
VARCRAR foo[14]; /* Dwmy for uniqueness fetakhes a/ 


EXEC S01 ERD DECLARE SECTICN: 
REEC SCL DCISDE SOLCA; 


#iaciude “asen.h” /* Standard ASAW Beader File Ld 


RXEC SQL DECLARE CA001 CURSOR FOR 


REC SQ% DECLARE CA110 CURSOR FOR 
SELECT e.entry sim 
FROM headquarters animal effects « 
WEERE amml id = :nextarml; 


EXEC SOL DECLARE CA111 CURSOR FOR 
SELECT e.entry num 
FROM headquarters animal effects e, qual citi q 
WHERE e.entry am = q.eatry aus 
AMD amel id = :nextanm) ; 


EXEC SOL. DECLARE CAL12 CURSOR FOR 
SELECT e.catry sum 
FROM headquarters animal effects e, qual cit? q 
WEERE @.catry num © g.eatry num 
AED aml id = :nertaml ; 


fat mkanmlet () 
[PRRAAARAAHERREERERREREERREROREARADRERREDREAREREEEREREEERARERHERRAEERARRRARES 
* 2 
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* mkammist -- Create the subsect of animals that belong to the next * 


® ec level down in the taxcacmy table * 
® ® 
RARARERAARAAAEREARAERARAAARRRARARAEARERRARARERARRARERAEERERARERAERERRARERRER / 
{ 
ehar *clock(); 
FILE *txtbikf, *fopea{) ; 
aut acount, depth, 1, lowdlepth; 
statio char tdote[] = (°°, ©. 5, 72. 8, Seas MPF 
ifdef CEBCKOUT 
print? ("\nmkammist “); 
fendizt 
4¢ ( (txtbikgf = fopen (*txrtbik\\varaninl txt", °w"}) == MULL) { 
SLOUTR? ("Error cresting nest leval halp wiadow") ; 
fprintf (deate, “\ate could act copem animal teztbleck file", aicak()); 
return (iat) DOPLICATE OBJECT; 
} 
EXEC S9QL OPEN CA0O1; /* Pand the ‘object* */ 
af (eqica.aqlacde) { 
Rae CRaSG ; 
SLOUTP (“CURSOR CA001") ; 
SLOUTP? ("“%e", sqica.sqlerm.sqilerrme~) ; 
} 
acount = 0; 
liowdepth = 16; 
for (;;) { 
EXEC SQL FETCH CA0O1 TTO :anml id, :thisbeast; 
if (eqlaa.sqlcoode = SQt EOF) break; 
if (eqlica.sqlacde) { 
HDOaasG : 
SLOUTD ("FETCH CA001°) ; 
SILAUTP ("te", sqias .eqlerm .sqlerms) ; 
} 
thisbeast .arr (thisbeast .leaj = ’\0’ ; 
@ifdef CEECKOUT 
anml_id.arr[emel id.lemj = °\0’; 
printf (“\nAnimal 4d ie ta“, aml id.arr, thisheast .art) ; 
Geadizt 
Spriatf(txztbikf, “Animals below %te are:\a\n", thisbeast .arr) ; 
epriatt (workspace arr, "Lookiag for Animals below te °, thisbeast .arr) ; 
SLOUT (workepece .arr) ; 
for (i = 6; 4 > 0;) ¢{ /* Where are wa? */ 
22 ((amml dd.are[i] t= '0’) |{ (nmi _id.err[i-1] f= °0’)}) break; 
i -= 2;)} 
depth = i; 
if (depth < olddepth) ccatinue; 
&€ (lowdepth > depth) lowlepth = depth; 
@itdet CuncKnour 
printf’ (" depth %d", depth); 
Gendiz 
Sf (depth < 6) { /* You aan’t go further than that */ 
for (2 = 0; 1 <= depth; i++) 
pattera.arr{i] © anml id.arr[i]; 
pattern.arr[ij] = '%’; 
pattern.ies = i+1; 
Gifdef CEECKCU?T 
pattern .arr(pattera.len}] = ‘\0’; 
pristt(" Pattern is te", pettera.arr) ; 
@encir 
EXEC SQL OPEN CA002; /* Waat else is there like it */ 
Af (sqlaa.sqiacde) { 
TEDCaaG ; 


SLOUTP (“CURSOR CA002°) ; 
SLOUTP (“%te", sqica.eqlerrma.sqlerzmas) ; 
} 
for (:;) { 
EXEC SOL FETCE CA0O2 DFO :anmineanes, :sextanml; 
4f (eqica.sqiccde) break; 


Gifdef CEBCEOUT 
nextan) arr (nertanml jes] = ‘\0’; 
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anmmlneme.art(aninase.jles] = ’\0’; 

priatf(*\afouad te %e°, nextamml.arr, anmmlneme.arr) ; 
fendi’ 

4¢ (letenicup (nextanml.arr, seml_id.arr, 10}) continee; 


Zor (A w 6; 1 > 9;) { 
a¢ ((mextaml.arrfi’j t= °0’) || (sextamml.arr[4-1] f= '0’)) break; 
i —= 2;} 


@ifdef CEECKOUT 
priat?(* included") ; 
fendit 
am lneme.arr[anmineme.iea] = ’\0’; 
fpriat? (txtblkf, “ts ts\a", dots[{i/2], ammlname.arr) ; 
acount ++; 
} 
4¢ (eqlca.sqloode t= sgt BOP) { 
EMDCasG ; 
fpriatt (dante, 
*\nte te\a\t\t\t locking for animals like %s", 
aloak{), eqica.sqlerm.sqlerme, enimeal.arr) ; 
} 


Sprint? (txtbiks, *\n\a*) ; 
EXEC OO. CLOSE CA002; 
} 

} 


if (sqloa.sqloode i= BOL BOF) { 
Hep Ones ; 
fprint? (dasta, 
"\ate Se\a\t\t\t locking for snimals like %s", 
Gleak(), eqica.sqlerrm.sqlermac, animal .arr) ; } 
fprint? (tztbik?s, * =m ERD we\n"); 
falosa (tztbikf) ; 
eprint? (workepece arr, "4d entries of td for 4s", accunt, animals, animal.arr) ; 
Gifdeft CEEcKOUT 
SLOUT? (workspace .arr) ; 


42 ((lowdepth [= 16) 66 (lowdepth > olddepth)) olddepth = lowlepth; 
af (olddepth < 8) olddepth += 2; 

return (iat) acount; 

) 


dwt queryaii () 


{[RARAARAARATERAAARARAARRARARARERERAARRRARHARARARERARREREEHEAREREEEREARERERORED 


e * 
® queryell -- Find the animal of “species 1" in the tazrceany table bad 
a ees ; 
® * 
ARARAARKRARRARAARARRKARARARARARAAARKEBRAARHARKETAERKEREKARAARARARRAERRERRAAERRES / 
{ 

iat i; 


Gitdef CEECKOUT 
printf (°\nqueryall “); 


clddapth = 0; /* Current Search depth is sero */ 
amal id.arr[Oj = °\0’; /* Current animal act yet defined */ 
asml id.lea - oO; 


l.les = strlea (species! .arr) ; 
for (i = 0; 4 < speciesi.lem; i++) { 
aninel.arr[i] = speciesi .arr{ij}; 
&¢ (isepace (epeciesl.arr[ij)) break; 
} 


4% (4 =m 0) returm (int) 0; /* Animal not entered */ 


animal .arr[4}) = °%’; 14+; 

animeal.arr[(i] = ‘\0'; 

eninal les = 4; 

if (animals = mkamlst()) ( /* Find the second level */ 
MEW SCREEN ("akeyalt") ; 
ADO WINDOW ("spectntry*, 5, 1); 
return (int) 0; } 


iat queryei2 () 
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ele. Ser ees | 


[ARARAARERAARERRARARARRARRARAAAAARHARRARARARARERAAREGRAERERERRARARRAARRERAERRS 


e queryei2 -- Find the animal of “species 2° in the tarcacmy table * 


* e 
PAARRARARAARARARAREARERENERABDREARAAERREREARERERERRERARRAERAERRERRARERRERRRERS / 


aat count, i; 


ifdef CHECKOUT 
printf (*\aqueryal2 *); 
endif 


species? .lea = strilea (species? .arr) ; 
for (4 = 0; 1 < epecies2.lem; 1++) { 
asiveal .arr(i] = species? .arr [4%]; 
if (isepese (species? .arr[i])) break: 
} 


42 (4 tm 0) { /* Animal entered ? */ 
enimeal.arr({ij) = °%’; 14+; 
enimal.arr[ij = ’\0’; 
enimal.les = i; 
af (count @ mkammlet()) { 


} 
REMOVE WINDOW () ; 
MEW SCRERS (“akeysrch”) ; 
) 
Ast queryal3 () ; 
[AARARAAEAARERERRARREEHAEAREEERERRARAARERERERERARAAEREREAOERERERARERERRRERRES 
* * 
* queryel3} -- Fiad the animal of "species 3° in the taxcacmy table * 
a aS * 
* e 
RERAAALEAERARERAAERRRAREREEEAELORRARARHARERENROEEEEREREARRERRERNERHRRRAHRER / 
{ 


aut count, i; 


#itdef CEBCKCUT 
print? ("\aqueryals °); 
fandit 


epecies3 lea = etrien (species3 .arr) ; 
for (1 = 0; 4 < species3.ilan; i++) { 
animel.arr[i] = species3 .arr (ij: 
42 (isepaece (epeciess arr[ij)) break; 
} 
af (4 != 0) { /* Animal entered 2? *%/ 
animel.arr[i] = °%’; 14+; 
animal .arr[{i] = ’\0’; 
animal.les = 4; 
af (count = mkammilst()) { 
animals = const; 
REMOVE WINDOW ({) ; 
MEW SCREEN (“akeyalt°) ; 
ADO_WIMDOW ("specéatry", 7, 1); 
retura (ist) 0;} 
} 
REMOVE WINDOW () ; 
MEW_ SCREEN (“akeyerch”) ; 
} 


iat queryelé() 


[/AARARAAAERERAAERAEREREERERRARAEARARERERAREARRARRERARERARARRERKARRERARAHARHER 


* * 
* queryalé -- Find the animal of "species 4° in the taxcncmy table * 
® Le il ° 
« * 


SEAAERRARAAERERERERARRARRRAAARRERRERERARRERERERERAARAARERRARAERRERRARRRARRRE / 


{ 
int count, i; 
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#ifdef CHECKOUT 
printf (“\aqueryalé *) ; 
fendi¢ 


for (1 = 0; 4 < species4s.lea; i++) { 
animeal.arr[i] = species3.arr [i]; 
4f (Seepece (species4 .arr[i])) break; 


} 
af (4 te 0) { /* DAmimal entered 2? */ 
animel.arr(i] = °@’: 444; 
animal .arr[ij = °\0’; 
enimel.ien = i: 


iat asrah002 () 
/senen RRAKKAAASRAKARARARARRAAARARARERAKARARRERAAAERAEAARERA SRARRARERAAARAARRE 


® a 
e aeroh002 ~- Search besed ca entries where an Animal is selected * 
® ee an) t 
2 
sshadadahaiabahahahabahadahetniniahehabaiabanbchaiahelebababsbalshalelainbelelelelsinielalalalaiataisiainielainiaiatolotainiaieinletetoeidedt Lolly 
{ 


$itdef CEECKCOT 
print? ("\nasrah002 °); 
@enait 


if (queryw()) { 


WEWVALS () ; 
Af (quexyt()) { 
MEWVALS () ; 
af (queryd()) { 
WEWVALS () ; 
qearyeald () ; 
} 
} 
} 
MEWVALS () ; 


if (!qual_eatries) { 
SLOUTBP ("Ho entries matching these criteria were found”) ; 
reture (int) 0;} 
else { 
if (Imalieto()) { 
af (lehwnzteit()) { 
MEW SCREEN (“citdsp1°) ; 
ADD_WIEDOW (“aitdispaction”, 19, 1);} 
) 
retura (int) 0;} 


} 

iat queryaio() 
[OARRAAARARARAAERERERERATRALNAARAAERDONANRORRERERARERRERARAARARARRKEREARERROR 
* f 
bad queryeaiO - Select citations thet deal with epecific animal (s) bad 
* mee va | 2 
* a 
CAOREAAAAARAARARASAANEDRAREREREERERERARERERERERREREREREREERDRERORERRAREEHRER/ 
{ 

Sut 4; 


@ifdef CEECKOUT 
priatZ ("\nqueryalo *); 


af (clddepth w= 0) return (int) qual entries; 

etracpy (pattern.arr, anul id.arr, (unsigned int) (colddepth-2)); 
pattern.arr[(olddepth-1}) =» ‘§’; 

pattern .arr{olddepth] = ‘\0': 

petters.len © strlen (pattern .arr) ; 

strcat (selcrit, pettern.arr) ; 


@ifdef CRECKOUT 
anml_id.err{aml_id.len] = "\0’; 
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printf (°\ate, use Su characters for ts", amsl_id.arr, 1, pettera.arz); 


SLOUT (“Bpecifia Animal Search") ; 


ZxXEC S61, OPEN CA100: 
#ifdef CHECKOUT 
if (sqlca.sqlocde) { 

SLOUTP ("CORSOR CALCO") ; 
EEDCaaSG ; 
SLOUZP ("te"°, sqioca.sqlerm.seqlerrmns) ; 
) 

fendizr 

qual entries = 0; 


EEBC SG% FETCH CAIOO into :nextamal; 
Af (eqloa.sqloode =~ sgt mor) { 
EXEC SOL CLOSE CA100; 
retura (ist) qual eatries; } 


if (sqloa.eqlacde) { 
mapas: 
SLOUT? (“FrETCS CA100") > 
SLOUTP ("%e", eqlca.sqlarrm .sqilerrms) ; 
} 
else { 
Sf (temptabl = i) { 
EXEC SQL DELETE FROM QUAL, CIrT2;} 
else if (temptabl = 2) { 
EXEC SQL DELETE FROM QUAL CIT1; } 
} 
EXEC 8OL COMMIT WORE; 


#iftdef CEECKOUT 
aaxtanml].arr(nextanm!.leaj = ‘\0'; 
print? (“\nTazca te", sexrtannl arr) ; 

feadif 


do { 
ewitch (temptabl) { 
onse 0: 

EXEC SOL OPEW CA110; 

if (eqica.sqlocde) { 
SLOUTP ("CURSOR CA110°) ; 
EpCaasG : 
SLOUT? ("%a°, sqlea.eqlerra.sqlermsc) ; 


} 
for (;;) { 
RXBC 9OL FETCE CA110 into :emuab; 
if (sqica.sqlcode == SQL BOF) break; 
af (eqlca.sqilcaode) { 
SLOUT? (“YEFCH CA110") ; 
Dass ; 
SLOUTP ("%te°, sqica.sqlerm.sqlerme<e) ; 
} 
Exec SOL SELECT entry num 
FROM qual citi 
INTO :Loo 
WEERE entry num © :enumb; 
if (eqlaa.sqloode om soL Eor) { 
EXEC SOL INSERT DFTO QUAL CIFi {eatry mum) VALUES (:emumb}; 
Af (sqlca.sqlcode) { 
SLOUT?P ("INSERT Table 1°) ; 
RDCaaSG ; 
BLOUTP (“%e", eqlica.sqlerrm .eqlerrms) ; 
} 
fiftder CEECKOUT 
enumb.arr[i0} = ‘\0o’; 
print? ("\ate qualifies‘, enumb.arr); 


EXEC #01, COMMIT WORK: 


qual ent ries++; 
MEWVALS () ; 
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af (eqlon.eqlocde) { 
EEDCOMSG ; 
SLOUTP ("CURSOR CA111°) ; 
SLOT? ("Se", eqica.sqlerm.sqlerms) ; 
} 
for (77) { 
RESC 8OL FETCH CAL11 into :emumb; 
if (sqloa.sqlcode == SQL BOF) break; 
af (aqlca.sqloode) { 
SLOUT? (“FETCH CAL11°) ; 
TRDORESG ; 
SLOUT? (“te", eqion.sqlerm.sqlermas) ; 
} 
EXEC SQL SELECT entry num 
FROM qual cit2 
IWZO : foo 
WEERE extry num = :enumb; 
if (sqisa.sqlcode == SOL EOF) { 
ERXsCc SOL, INSERT ITO QUAL CI?2 (entry aun) 
4f (eqloa.sqloode) { 
TEIDOMSG ; 
SLOUT? (“%e"°, eqica.eqlerm.sqlerzms) ; 
} 
#itdef CEBCEOUT 
enumb.arr(10}] = ‘\0o’; 
print? ("\nte qualifies", enumb.arr) ; 
geadizc 
EXEC SO% KXOecrT WORK; 
qual entries++; 
MEWVALS () ; 


anse 2: 
Exec 8GL CFPEN CAL1I12; 
4f (eqica.sqloocde) { 
mupcessa ; 
SLOUTP (°CORSOR CA112°) ; 
SLOUT? ("%e", eqica.sqlerre.eqlermnes) ; 
} 
for (:;) { 
EXEC SQL FETCH CA112 into :enumb; 
if (eqlaa.sqlcode == SQL EOF) break; 
Af (eqloa .sqlacde) { 
SLOUTS ("FETCH CAL12°) ; 
EEDOMSG ; 
SLOUTE ("Ss", sqica.sqlerm.sqlermzs) ; 
} 
EXEC #04 SELECT? entry sum 
FROM qual citi 
INTO : foo 
WEERE entry num = :eanumb; 
Af (sqica.sqlcode == #Q% EOF) { 
EXEC SQL INSERT INTO COAL CI¥1 (entry num) 
af (sqlca.sqicode) { 
EDs ; 
ELOUT? ("te", sqlca.sqlerm.sglerznc) ; 
} 
@ifdef CRECKOUT 
enaweb.arr(10] « “\0’; 
printf ("\nte qualifies”, emumb.arr) ; 
feadir 
MXEC SQL, COMMIT WORK; 
qual _eatries++; 
MEWVALS () ; 
} 
} 
EXEC SOL CLOSE CA112; 
break; 


defacit : 
bed _tamp(); 
) 
EXEC SQL FETCH CA100 Dro :neztaml;: 
} while (leqica.sqlacda) ; 


if (eqloa .sqlcacde tea sou Bor) { 


DCMS ; 

SLOUT? (“FETCE CA100") ; 

SLOUTE (“%e°, eqica.eqlerza.sqlerrac) ; 
) 


VALUES {:emumb) ; 


VALUES (:emumb) ; 
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temptabl = (temptabl % 2) + 1; 
EXEC SOL CLOSE CA100; 
@ifdef CEBCECUT 
print? (" %d entries in table %d°, qual entries, tanptabl) ; 
fendit 
retura (iat) qual entrice; » 
} 


/eeaanaan RRARRARARKRARARAAARAKAAAARAAAAARARAARALRARKAARCARKARARARARAEARARAARARAKAARKGRERAR 


* & 
e queryhl.po -- Routines for citation database retrieval in the bad s 
& —a human area using keyword set 1 igs 

® e 

" This file coataias: * 

a * 
AARAAAAAAAAREREREEAAESARESRARAAAERERARERERESERERAERAERRAREERAARAREDENERAHERS / 

#include <process .h> /* Seader for calls to MS-DOS «/ 

fAaalude <stdio.h> 

Sdefine SOLCA STORAGE CLASS externa /* @witch for header files a/ 

EXEC 80%, BEGIN DECLARE SECTICH: 

Exec S61. DRCLODE citvare .h; 

EXEC 8G ED DECLARE SRCTICN ; 

EXEC 80% INCLUDE SGLCA; 

#iaclude “asan.h* /* S@tendard ASANW Header Fila a/ 

static char far *hoursors[} = { 

"SELECT entry num FROM headquarters. citstion search WEERE A anacyans = ’?’*, 

“SELECT q.entry sum FROM headquarters .citeatice search s, qual citi q\ 

WHERE s.eatry num © q.entry num AND s.h annoyanc = ‘T’", 

"SELECT q.eutry num FROM headquarters citstion search s, qual sit2 q\ 

WRERE e.entry sum = g.entry nus ABD s.b annoyanc = ‘T’", 7 

"SELECT eatry_num FROM headquarters .citaticn search WEERE bh peychigy = ‘7’", 

“SELECT q.eatry_num FROM headquarters. citation search #, qual caitl q\ 

WERERE s.catry num = g.entry num AND «.h peyohlgy = 'T’”, 

"SELECT q.eatry num FROM headquartere. citation search s, qual cit2 q\ 

WEERE s entry aum = g.entry num AMD «.h peychigy = '7'", 

“SELECT entry num FROM headquarters.citation search WEERE h physical = ‘?’", 

"SELECT q.entry_ num FROM headquarters .citation search s, qual eaiti q\ 

WEERE s.catry num = q.entry num AMD s.h physical © ‘7'", 

“SELECT q.entry num PROM headquarters.citation search s, qual cit2 q\ 

WEERE s.emntry_ num = q.entry num AMD s.h physical = ‘F'", 

“SELECT entry sum FROM headquarters aitation search WHERE h sleep = ‘T’*, 
“SELECT q.eatry num FROM headquarters citation search s, qual oiti q\ 

WHERE s.entry om = q.eatry num AND s.h sleep mes, 

> 

“SELECT q.emtry num FROM heedquartere citation search #, qual_cit2 q\ 

WEERE s.eatry num «= q.antry num AND s.h sleep mere, 
“SELECT entry num FROM headquarters .citatica search WHERE h speech = ’’", ¥ 


“SELECT q.entry sum FROM headquarters .citation search s, qual citi q\ 
WEERE s.entry num = q.entry num AED s.h speech = ’T’", 


“SELECT q.entry num FROM headquarters .citetica search s, qual cit2 q\ 
WEERE s.entry num = q.entry num AND o.h speech Ck ae 


“SELECT entry_num FROM headquarters.citation search WEERE h perfrmac = ‘’f’", 


“SELECT q.entry_num FROM headquarters citation search s, qual aitl q\ 
WHERE «.eatry num = g.entry num AMD s.h perfrmanc = ‘7'", 


“SELECT q.entry num FROM headquarters. citation search #, qual ait? q\ 
WHERE ¢.eatry pum = g.entry num AND s.h perfrmnc = ‘F’"}; 
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dat hoursoffeat: 


iat queryhi () 
[PRERHEAAAREEAARARAAAAAROREREARERRARERERERREREARARDEARARERRAERARRARRRARRARERER 


queryhi -- Create the subset of citaticas for the titles that 
 mainnaiial pertain to the RUMAN area and also select the effect 
at level i 


#8.) 8 8 
e#esss 


REAARAREAEAARAREREREAARAEEEERARERRERANERERRKEEAARAARARREREARHERAARAREAREERER / 


{ 

@ifdef CEBCKOU? 
print? (*\aqueryhi “); 

fendir 

SLOUT ("fuman Area”) ; 

switch (eff2erahk(0}) { 

0: break; 

1: queryhil(); break; 

2: queryhl2(); break; 
case 3: quaryhi3()}; break: 
case 4: quaryhi4(); break; 
ease 5: queryhiS(); break; 
ease €: queryhi¢()}; break; 

#iftdet CEECKOUT 
Gafault: spriattf (workspece.arr, “Iavelid Humes Bffect %d°, eff2srah[9}) ; 

SLOUT? (workspace .arr) ; 


fendit 

} 
setura (int) qual estrice: 
} 
fat queryhii () 
[PARRRAAAAAREAAERARAOREAAERERHENERAEABREAAAEREERASAERADEEHERRERARERERERERNAROR 
a . ® 
* queryhii -- Create the subset of citatices for the titles that bad 
« AL pertain to the HUMAN sree and also AMNCYANRCE * 
* * 
RRARAAAAAARRARERARARRRARAAARRARARAARRARREDARERERAARERARARARARERAREEAERERERAERS / 
{ : 


ifdef cuachour 
print? (*\mqueryhl2 "); 


stroaat (selcrit, "Human Ann”) ; 
hourseoffiset w= 6; 
vcetura (int) queryhiz() ; 


} 

iat queryhi2 () 
[EARRARARERERERAREARRRARRRAERERERERARERARARADARARAARERAARARERARERRERHRERRORER 
e * 
bal queryhi2 -- Create the subset of citations for the titles that * 
e STE pertain to the HUMAN area and aiso PSXYCEOLCOGICAL EEALTEZ * 
® a 
RAAAARAERERAARAARAEARARARARAREARARRARREERERAERERHERERAERREDRRARREREREREEERHED / 
{ 


#iftder cumcKoUT 
printf ("\nqueryhi2 °); 


etroat (selerit, “Psychol”); 


hoursoffeat = 3; 
retura (int) queryhiz() : 


} 

iat queryhi3 () 
[AARARAARARRARAERAAREAEARRERAAARAAARARRERAARRAREDERRREARERRARARRAARREAARADEEE 
® & 
* queryhi3 -- Create the subset of citations for the titles that ad 
® —s pertain to the EUMAW area and also PHYSICAL EEALTS * 
* * 
RRAARERARAAAREEERERAAEARAERERRERAEREARAARERERERRERRRRARHEEHARRERRERAARAANARES / 
{ 


#itdef CRECKOUT 


print?# (“\nqueryh13 °); 
#eadif 
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etroat (selarit, *Phys. Bealth") ; 
hoursoffseat = 6; 
return (int) queryhi2() ; 


) 
iat queryh1é4 () 
[PRRRRARAARAAEARAOREORRAREREDEADERERERAREARRERRERERERRERERRARRUARREORRERERARH 
® * 
® queryhl4é -- Create the subset of citations for the titles that bad 
ad —— pertain to the NUMAN area and also SLEEP INTERFERERCE * 
« a 
RERARAARARAARARAARARERATEERERAREARAHEARARAAAAEEAAARARAAERERERAAHARERERHHEEAY/ 
{ 
$ifdet CEBCKOUT 

print? (“\aqueryhi4 “); 
fendift 
etrast (eelarit, "Euman Sleep”) ; 
hoursoffeet = 9; 
return (int) queryhiz() ; 
} 
ist queryhi5 () 
[PAERERAAAAAAAEREERARARAREERRAAERREREERARAAERAREARERRRERERREARRAREREARRARRARED 
a e 
bad queryhi5S -- Creste the subset of citations for the titles that ® 
® a pertain to the EOMAN erea and also S?EECE INTERFERENCE al 
e a 
RRORRARAEEAREAREAARAARERARAERAGRARERARRHARERRREREAEREREARERAERARAREARARRHARR / 
{ 
@icdeft CEECKOUT 

printf (*\aqueryaisS °); 
Gendit . 
etroat (selcrit, “Speech") ; 
hoursoffset = 12; 
retura (ist) queryhiz() ; 
) 
ant queryhis () 
[AAAAAARERARERARARARERAARRARARATREREEAAARREARAARRERERARAERERREREERTAARRAERHED 
® « 
* queryhié -- Create the subset of citations for the titles that * 
* at pertain to the EUMAN area and aleo TASK PERFORMANCE * 
® ® 
RARARAARARRARERRARRAAREAAREEARAERERRERAEEEDERERRARRARARAAREREERARRARAARARARR / 
{ 
#itdef CERCKOUT 

printf ("\aqueryhlé *) ; 
Pendit 
etrcat (selcrit, "Euman Perf”) ; 
houreoffeet = 18; 
return (int) quaryhiz(): 
) 
fat queryhisz() 
[PERRARELARAAAAARARARERARARAREERERERRERHEERAEAREARREERAERERRARERERRARERROERRE 
® ® 
bad queryhiz -- Actually do the search using hourscoroffset bal 
2 ——— * 
2 * 
RARAAAARAARERAAAARERARRERERARAAEREAHEERARRERERRARARRAAARRERAEERARRNRRARAREER / 
{ 


$itdef CHECKOUT 
priatf£(" queryhiz td+4d °, hoursoffset, tamptabl) ; 


stropy (eqistmnt arr, houreors (hcursoffset temptabl}) ; 
eqistmnat .lea = strlen (sqistmnt .arr) ; 


2XEC SOL PREPARE Di FROM :sqistunt ; 
if (sqlca.eqicode) { 
EMDOMSG ; 
SLOUT? (“Prepare CED"); 
SOUT? ("%e", eqica .sqlerrma.sqlerms) ; 
exit (16) ; 
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} 


RXEC SQL DECLARE CED CURSOR FOR Di; 


REeC St OPEN CRD; 


if 


(eqlca .seqlcode) { 

SLOT? ("Opem CED"); 

SLOT? ("“te", eqica.sqierrm.esqlerms) ; 
} 


qual eatrias = 0; 
for (;;) { 


2xXEC SOL FETRCER CED iate :enumb: 


4f (eqloa.sqlocde == SQL EOF) break; 

42 (aqlca .sqlicocde) { 
SLOUTP ("Fetch CED"); 
SLOUT? (“te", sqlca .sglerm,sqlerzms) ; 
) 


if (tCamptabl = 1) { 
EXEC SGL INSERT INTO QUAL CI?2 (entry mum) 
} 
alee { 
EXEC SQL INSERT IPO QUAL CIT1 (entry_sum) 
} 
af (sqloa.seqiocda) { 
MDcaesG ; 
SLOUT?P (“Insert after CED"); 
SLOUTP ("%e", eqica.sqlerra.sqlerrme) ; 
exit (16) ; 


EXEC SOL CLOSE CED; 
temptebl = (temptabl & 2) + 1; 


ifdef cCEECcEOUT 
printf£(* td eatries in table %d°, qual eatries, temptab)l) ; 
fandizt 

retura (iat) qual extries; 


} 


VALUES (:enwnb) ; 


VALUES (:emumb) ; 


[ARARARAARAREEREAREREEEERRAREEERRAREEEEERAEHRARERRERKAREHRERAARERRERRDREREDOS 


queryh2 .po -- Routines for citation databese retrieval in the 
Cima] humen srea using keyword set 2 


This file ccoaetains: 


* 3s #8 © & 


RARARRAERAAAERAANEREREAEEARERARERRARRARRERERREREREERRARARRRERERNORRRREERRERR / 


finclude <process .h> /* SEeader for calls to Ms-Dos a/ 
finalude <stdic.h> 


fdefine SQLCA_ STORAGE CLASS extern /* w@witch for header files */ 


EXEC SOL BEGIN PECLARE SECTICH; 


EXEC 86%) DOCLUDSE citvars .h; 


EXSC S01 END DECLARE SHCTICH:; 
EXEC SOL INCIUDE SOICA; 


@include “asan.h° /* standard ASAW Reader File «/ 


wtatic char far *h2curecrs[] = { 
"SELECT d.eatry num FrRoM headquarters citation details a,\ 

headquarters .citation search « WHERE d.entry sum © s.entry num\ 
AMD d.aircraft « ‘F'*, 


“SELECT q.entry num FRc headquarters citation details d, qual aiti q,\ 
headquarters citation search « WRERE e.entry num ~ q.entry sum\ 
AND d.entry num = gq.entry num AED d.aircraft = ‘ere, 


“SELECT q.eatry_num FROM headquarters citatica details d, qual cit2 gq,\ 
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beadquarters .citetica search e WEERE s.entry num © q.eatry sum\ 
AND d.eatry num = q.entry mum AMD d.aircraft = ‘7’", 


“SELECT d.entry_ num FROM headquarters .citatica details d,\ 
headquarters citation search o WEERE d.entry num = s.antry ntum\ 
d.ae blast = ‘f'*, 


"SELECT q.eatry_ num FROM beadquarters.citation details d, qual citi 
headquarters citation search s WEERE e.entry num = q.eatry aun\ 
AED d.eatry_num © g.entry_ sum AND d.ns blast «= 'F’", 


"SELECT q.entry num FROM headquarters .citatica details d, qual cit2 
headquarters.citation search s WEERE s.entry num = g.emtry aun\ 
AND d.eatry num = q.eatry num AMD d.as blast «= ‘?’", 


“SELECT eatry_num FROM headquarters citation details d,\ 
headquarters .citatica search so WHERE d.entry num = s.entry aun\ 
d.as seismic = ‘T’'", 


"SELECT q.entry num FROM headquartere.citatica details d, qual citi 
headquarters citation search os WEERE sentry num =~ q.eatry num\ 
AND d.entry_ sum = q.entry num AMD d.as seiemic w ‘2’", 


“SELECT q.entry num FROM headquarters. citation details d, qual cit2 
headquarters .citatica search os WEERE s.entry num « g.entry aun\ 
AED d.eatry nua = q.entry num AMD d.ns seismic = ’°2’", 


"SELECT entry num FROM headquarters.citatica details d,\ 
headquarters citation search o WEERE d.entry sum ~ s.ectry aua\ 
d.ae _scaictm = ‘'T’", 


"SELECT q.eatry pum FROM headquarters citation details d, qual citi 
headquarters citstion search s WEERE s.entry num = q.eatry num\ 
AND d.eatry num © g.eatry num AMD d.as sceichm = 'F'", 


“SELECT q.entry num FROM headquarters citation details d, qual cit2 
headquarters .citetica search « WHERE s.entry sum = q.eatry naum\ 
AMD d.eatry sum = q.entry num AND d.as scaichm = ‘?'", 


"SELECT d.entry num FROM headquarters citation details d,\ 
headquarters citation search s WHERE ¢d.entry num = s.entry nun\ 
AED d.as terrain = ’2'", 


“SELECT q.entry num FROM headquarters .citetion details d, qual citi 
headquarters citation search os WHERE s.eatry num = g.eatry_nus\ 
AED ¢d.eatry num = q.eatry num AMD d.ns terrain w= 'F'", 


"SELECT q.entry_ nus FROM headquarters citation details d, qual ait2 
headquarters citation search s WEERE s.entry num = q.eatry oum\ 
AMD d.estry num = q.entry num AND d.as terrain = ‘7’, 


"SELECT d.entry num FROM headquarters.citation details d,\ 
headquarters citation search oe WHERE d.exatry num = s.eatry num\ 
d.traffic w= ‘T’*, 


“SELECT q.entry num From headquarters .citstion details d, qual citi 
headquarters citation search s WHERE «entry num = q.entry num\ 
AED d.entry sum = g.entry num AMD d.traffic = 'T'", 


“SELECT q.entry num FROM headquarters citation details d, qual cit2 
headquarters citation search « WEERE «entry num = g.eatry num\ 
ABD d.entry num = q.eatry num AND d.treffic = ‘F’*, 


“SELECT entry num FROM headquarters .citation details d,\ 
headquarters .citation search s WHERE d.entry num = s.emtry aun\ 
d.wind ase = = '?’", 


“SELECT q. entry num FROM headquarters citation details d, quai citi 
headquarters citation search s WHERE s.entry sum = g.entry sum\ 
AMD d.eatry sum = q.entry sum AMD d.wiad ase = ‘2’", 


“SELECT q.eatry_num FROM headquarters .citatica details d, qual cit2 
headquarters .citetion search « WEERE s.entry num © q.entry aun\ 
AED d.entry num = q.entry num AND d.wiad nse = 'F'", 


“SELECT entry_num FROM headquarters.citation details d,\ 
headquarters.citeticon search » WEERE d.entry num © s.entry sum\ 
d.cthr nse mee, 


“SELECT q.entry_num FROM headquarters.citation details d, qual _aiti 


beadquarters citation search s WEERE s.entry num = q-entry nun\ 
AND d.entry num = g.entry num AND d.cthbr nse = 'F'*, 
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q,\ 


q.\ 


q,\ 


q-\ 


q,\ 


q.\ 


q,\ 


q,\ 


¢-\ 


q-\ 


q-\ 


q-\ 


@.\ 


“SELECT q.entry nam FROM headquarters citation details d, qual oit2 q,\ 
headquarters.citation search s WHERE ®.entry num © q.entry aua\ 
AMD d.eatry_ num = q.entry am AMD d.cthr ase = 'F'*}; 


ast cursoreffset ; 


iat queryh2 () 

[ARRARAAARERARDERRERRAERREAERAEERAREDERERAAERERNAEAREORERERRAROERERORRRRARRES 
a * 
* queryt2 -- Create the subset of citations for the titles that * 
2 as pertein to the HUMAN area aad also select the effect ® 
id at level 2 * 
* e 


iatalaahabelaiahalalachalahaiaialahalabedalabnialainialalelalaalelehebalalelalsiatedialaisbalalatelsiattesinidaiinntdacid ete ce 


{ 
@i4fdef CEECKOUY 


priatf£("\aqueryh2 "); 
Gendi.f 


SOOT ("Rumen Aree”) ; 
ewitch (eff2erch(1]) { 
ease 0: break; 
ease 1: queryh?1(); break; 
2: queryh22(); break; 
3: queryh23(); break; 
case 4: quaryh24(); break; 
5: queryh25(); break; 
6: queryh24(}; break; 
7: queryh27()}; break; 
case 8: queryh26(); break; 
@ifdef casckour 
Gefeult: sprint? (workspace arr, "Iavalid Human Bffect %d°, eff2ercah[1)) ; 
SLOUT? (werkepece .arr) ; 


} 


fendi¢ 

} . 
retura (int) qual _entrias ; 
iat queryh2i () 
[ARRRAARAARARERREERRARERREDREREREEAERADEEREHHERERRORRREEHERNEOAREERRERERERORA 
* * 
* queryh21 -- Create the subset of citations for the titles that « 
® —_—e pertain to the FUMAW area and also Aircraft Hoise bed 
¢ * 
iahahahahaiaialalaiaialaiaindaiahaiaiabatatalebsiailsislsislaheielasedsieieiaieiatelasntntetdaaannia ie CCT 
{ 


@ifdef CRECKOUT 
print? (°\aqueryh21 °); 
fendiz¢ 


etreat (selorit, “Airoreft") ; 
curscroffset = 6; 

return (iat) queryh2~ {) ;: 

) 


iat queryh22 () 

[ARMAND AAAAAARRDARARERARRERORARERAENEARERRDRREREARAAAERREREARREREEREREARRE ROR 
& * 
bed queryh22 -- Create the subset of citations for the titles that * 
* es pertaia to the SUMAN area and also Blast Noise * 
e * 


iahahahahaiahaiahahahaiahalaiehaialaiaialatatalaelbsieieheiebaeaeieniainaateiiee eee T, 


( 
ifdef caaceoor 


priatf (°\nqueryh22 °) ; 
Pendir 


stroat (selarit, Blast") ; 
cursoreoffiset m= 3; 

return (iat) queryh2=z(); 
} 
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fat queryh23 () 


[AARAAAAERAERARAARAEARERERREERERAREEEEREAAAERARRRERRARNARARERARERERARAARARREOR 


® « 
® queryh2?3 -- Create the enbeet of citations for the titles that * 
* ee perteia to the EUMAN area and also Seimic e 
* ® 
RAARAAARARAERAAAEREEAAERARARARARRARARREAREEEREERRERRARREERRARAAREARARRAOERRE / 
{ 
@itdet CHECKOUT 

print? ("\squerya23 “); 
#eadifc 
etroat (selcrit, °“Seiamic”) ; 
curscroffset = 6; 
retura (iat) queryh2z() ; 
} 
iat queryh24() 
[RERARAAREANERARAREREREERRRARAREDRARREREREADRAREREERREREREARAREARREREERARERRE 
& ® 
* queryh24 -- Create the subsat of citations for the titles that * 
e SS pertain to the NUMAN area aad also Scaic Boom * 
® ® 
RRERERAAAAAAARERAARERESARAAAAAARERARREREEAAARRERREARHARAREERRAARAERERERREEED / 
{ 


@4fdef CESCKOUT 

printf ("\aqueryh24 “*); 
Gendiz£ 
etroat (selarit, “Boam”) ; 
curvcroffset = §; 
weturm (iat) queryh2zx() ; 
} 


iat queryb25() 


[RAARAAARARARERERERAREDEERAARARRARRARAAREREREREREREREARARRERRERRARRAREARRAREE 
5] 

queryh25 -- Create the subset of citatioas for the titles that 
a pertain to the HUMAN area aad also Terrain 


Revisica History: 
21.00 02/04/08 # ahr 1. Creatica 


*e¢2s 82) 8 ® 
s*2* + #2 © 8 ® 


RRAEAEARERRRARAEARERRRERERERELERAARERARARARRAARARARRRRARRAAARREAREERARRAEERRE / 


{ 
@ifdef CEECKOUT 

print? (*\nqueryh25 °) ; 
fendi 
etrost (selcrit, “Terrein”) ; 
curecroffset = 12; 
return (ist) queryh2x(); 


} 

dat queryah2 6 () 
[PARARAAARARAAEARAARERARAERATARRRAREERARAARARCEREAREARAERERERDERARARRERRRERERE 
f * 
* queryh2¢ -- Create the subset of citations for the titles that * 
* as pertain to the HUMAN area aad also Traffic bad 
e t 
RARRARHRARAAAAARARAEESAAERERAERERERNHARREARRENERERARRAAEERREEERAARAEREREAERARE / 
{ 


#i4fdef CEBCKOUT 

print? ("\nquery&26 *) ; 
fendift 
etrcat (selarit, “Traffia") ; 
aurscoreffset = 15; 


retura (int) queryh2x(); 


} 

ist queryh27 () 
[RRAARAAARAAARERAAARARARERAREEREREAAREREERARARRERRERARRERARERRRERERAARAARRERE 
* * 
* queryh27 -- Create the subset of citations for the titles that * 
* — pertain to the FUMAN eres and also Wind Noise * 
* * 
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AAAHEAARERAEHKENNAAARTEEERAAARATHRARARERAERHERKAAAAREREARAREERARNRAREOEREREE / 
{ 
G@itdef CEBCEKOUT 
praat¢ ("\aqeeryh27 “); 
@endir 


straat (selarit, "Wind") ; 
curscreffiset = 16; 
retura (iat) queryh2=(); 


} 

int queryh28() 
[AARERARARRAREAARARARRERRARRARAHERRRAEEERRERERERAAAAHKARARRARRARARAAAAARANORR 
* a 
ba queryh2s8 -- Create the subset of aitaticns for the titles that ® 
e TERT pertaia to the EUMAN area and also Other Noise Ld 
* * 
SERRERERARARERERERARARAARARARRAARARERREREREERERARERERAEERUREREDHAERERARARORE/ 
{ 


4fdef CEECKCUT 

print? (*\squerya2s °) ; 
gendit 
etreat (ealcrit , “Other") ; 
aarsoreffset = 21; 
setura (ist) queryh2z() ; 


} 

iat queryh2z () 
[RAARAREAAEARRAARRARRERARRARERRREEREERAERERRERERARARRERERERAREREHEAHARERRAARA 
t . * 
ed queryhiz -- Actually do the search using hoursoroffset bal 
* CE ® 
* e 
RASEARAAREAASERAHAE RERRARARAARARERRAERARREREEAERRARRARARRRERERENRERERREREREE / 
{ 


ifdef CEBCKOUT 
printf’(” queryhiz td+#d ", curscroffset, teamptabl) ; 


strapy (sqistant arr, h2cursors (cursoroffset+teuptabl)) ; 
eqietmat .len = strlen (eqistant .arr) ; 


EXEC SQL PREPARE Dl FROM :sqlistust ; 
42 (eqlaa.sqiocode) { 
macnn ; 
SLOUTP ("Prepere CED"); 
SLOUT? ("%e", eqlce .eqlerm.sqierrnas) ; 
exit (16) ; 
} 


EXEC SOL DECLARE CED CURSOR FOR D1; 


EXEC SOL OPEN CED; 
4f (eqlca.seqicecde) { 
EERDOMSG ; 
SLOUTE (“Open CED") ; 
SLOUTP ("%s", sqlca.eqlerm.eqilerrmnsc) ; 
} 


qual entries = 0; 
for (;;) { 
EXEC SQL FETCE CED into :enumb; 
if (eqica.sqlcode == SOL Bor) break; 
4f (eqiae .sqicode) { 
mpcesG ; 
SLOUT? (“Fetch CED") ; 
SLOUTP (°%a", sqica.sqlerm.sqlerzms) ; 
} 


af (temptabl = 1) { 
KXEC SQL INSERT DOFFO QUAL CIT2 (entry num) VALUES (:emumb) ; 
} 

else { 
EXEC SQL. INSERT DOFPO QUAL CIT1 (emtry_ num) VALUES (:enumb) ; 
, 

if (eqlca.sqloode) { 
EDCMSG : 
SLOUT? (“Insert after CED"); 
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tae ate om 


qual eatrice++; 
Exec SOL COaer? WoRk; 
MEWVALS () : . 
} 
EXEC SQL CLOSE CAD; 
tamptabl = (temptabl % 2) + 1; 


Gatfdef CEucKCUT 
priats(“ ed entries ia table td", qual entries, temptabl) ; 
fendit 
veturm (int) qual entries; 
) 


[ARAERAAERARAREREREARERARAARARARRERRERRAREEHAERERRARRRERRERERERAARRERRAARERER 
* 

queryh3 po -- Routines for citation detabese retrieval is the 
ST human area using keyword set 3 


This file aocatains: 


RPRERSLERALAAAAARRAARAKESRARARAERAKRERARAAARAARARAARARRAKAAAER Rehenaenanannanns / 


#inciude <procese .h> /* Seeder for calls to ms-bos a/ 
#incleude <stdic.h> 


$efine SGLCA_STORAGE CLASS extern /* Sswitah for header files a/ 
EXBC SOL REGIN DECLARE SECTION; 
EXEC SOL UNCLUDS citvare.h; 


EXEC SQL EMD OSCLARE SECTICH; 
Exec SQGt INCIADE SGLca; 


@include “asan.h° /* Standard ASAN Reader File a/ . 
etetic char far *h3curscrse[j = { 


“SELECT d.eatry num FROM headquarters citatica details d,\ 
headquarters.citetion search os WHERE d.eatry num © s.eatry aum\ 
AMD 4. field expt = ‘2'", 


“SELECT q.entry num Yrom headquarters citation details d, qual citl q,\ 
headquarters .citaticn search s WEERE s.eatry num = g.entry sum\ 
AND d.eatry num = q.eatry num AMD d.field expt = ‘?’", 


“SELECT q.entry num FROM headquarters .citation details d, qual ait2 q,\ 
headquarters. citation search ¢ WEERE s.eatry num = q.eatry sum\ 
AED d.entry_sum = q.entry aum AND d.field expt = ‘?’", 


“SELECT d.eatry num FROM heedquerters.citation details d,\ 
heedquarters.citation search « WEERE d.eatry num = s.entry aun\ 


ad.lab expest © ‘T’", 


"SELECT q.eatry num FROM headquarters .citatica details d, qual citi q, \ 
headquarters citation search s WEERE s.entry num ~ g.eatry aun\ 
AND d.entry num = q.eatry sum AMD d.lab expmat = ‘7’", 


°SELECT q.entry num FROM headquarters citation details d, qual _cit2 q,\ 
headquarters.citation_ search s WEERE s.entry num = q.entry num\ 
AND d.entry au =~ q.entry atm AND d.iab expeat © 'T’", 


"SELECT entry num FROM headquarters citation details d,\ 3 
headquarters citation search « WEERE d.entry num = s.estry num\ ™ 
review art = ’2'", 


“SELECT q.entry num FROM headquarters .citatioa details d, qual siti q,\ 
headquarters citation search e¢ WEERE s.entry num = q.eatry sum\ 
AMD d.estry au = q.entry_ num AND d.review art = ‘2’, 


“SELECT q.emtry num FROM headquarters .citetica details d, qual _cit2 q,\ 
headquarters.citation search s WEERE ¢.eatry num = q.emtry sum\ 
AmD d.entry_sum = g.entry num AND d.review art = ‘°7'", 


"SELECT entry num FROM headquarters citation details 4, \ 
headquarters citation search s WEERE d.entry num = s.emtry nun\ 
proposl_ar © ‘?*, 


“SELECT q.emtry num FROM headquarters citatica details d, qual ait! q,\ 
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headquarters. citation search s WHERE s.entry au = g.entry som\ 
auD d.entry sum = g.eatry num AMD d.propos]_ar = ‘T’", 


"SELECT q.eatry num FROM headquarters .citatica details d, qual cit? q,\ 
headquarters citation search « WEERE s.entry sum = q.eatry aun\ 
AMD d.estry sum «= q.eatry num AND d.proposel ar = ’?'*}; 


iat curscroffset : 


int queryh? () 
Tei iii iii iit iii rir riiiiiiiiitiiviiiiiitiitiiitiitiisiiitiiiity 


on pertain to the NUMAN area and also select the effect 


/ 
e 
® query) -- Create the subset of citations for the titles that 
@ 
e et level 3 

& 


ea es 28 8 


RRARAAARALHARAAAARERERRERREREEEERRARRERERAREARAEARARGERAERERASREEREERARERARRE / 


SLOUT ("Humen Area*) ; 


ease 0: break; 


default: sprintf (workepace.arr, "Invalid Euman Effect 4d", eff2srch{2)) ; 
SLOUT?P (workspace .arr) ; 


feadiz 

) 
return (int) qual _ entries; 
} 
iat queryh3i () 
LRAARARARAAAEAARERRERERARRAAERAEERERRRAREAREREREARRAERARERARAERAREERERERNARHAR 
e ® 
* queryh3i -~ Create the subset of citaticas for the titles that e 
2 ae perteia to the NUMAN area and also Field Experiment * 
e e 
SARARARERRERERRERARRERHRAREEERARRARERREERRGARARAOARARRSEEAEEREERAREAREERARER / 
{ 


@itdef CEBCKOUT 
prints (“\aqueryh32 °); 


etroat (selerit, “Human Fld") ; 
eurscoreffeet = 0; 
weture (ist) queryh3x() ; 


} 

ast queryh32 () 
[RARAARERAARRARRERERERRAARRERERAEEAERAARARRARERERERRAERAENHAEAKEDARAENEEREARE 
* * 
* queryh32 -- Creete the subseat of citations for the titles that ® 
® eeenmmiodill perteia to the SUMAN area aad also Lab experinent * 
® * 


AARAAARANEAAERAAAAARANEREREERERAERAREREREREERERAKRERRAERERHRAREOKRRRRRASERES / 
{ 
ifdef CEBCKOUT? 
print? ("\aqueryh32 °); 
Geadic 


etrcat (selcrit, “Zuman Lab") ; 
curscroffeat = 3; 


seturn (int) queryh3z() ; 


iat queryh33 () 
[AARAARARHAAAEREEREREARRARRANERAREAERARERRAEKRARRERAERARRARERAERRARHRERERAARER 
a 8 
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* quearyh33 -- Create the eubset of citations for the titles that * 


e el pertain to the EUMAN area and also Review Article * 
* ® 
RARARERREREARAEERERHAERAAAEARERARERERRAAAERAREREREERERDARRARRHERRERERONAOEEA/ 


@4fdef CEBCECUT 

print? ("\aqueryh33 *); 
@endir 
stroat (selcrit, “Ziman Rev") ; 
curescroffset = 6; 
retura (int) queryh32() ; 


} 

dat queryh34 () 

[RRARARRAAEARARRARARERAARRAARAARAREERAEEEAARARRAARERRARRRERREREERERREERERARER 

® a 

* queryh34 -- Create the eubset of citations for the tities that bad 

® —ae pertain to the NUMAN area aad also Theoretical * 

& * 

RRARERAAAARAAAARERERERARAARAERARERARERAREARARAARRARRRAEEHARAEEREREENEARRARAR / 

{ 

Giftdef CHECKOUT 

printf ("\aqueryh34 "); 

fendit 

etraat (selcrit,"“Kumas Fheor") ; 

curscreffiset = 8; 

retura {int) queryh3x() ; 

} 

fat queryh3=x () 

[PRRAAAAAAAAAERAAAASAAAAEREEERERERARARARAARAERERAREREREEHEEERARERERERDARRRERER 

* ® 

e querya3z -- Actually do the search using hoursoreffeet. * 

& re * 
a 


* 
SRASARAAEAAAREKARRARARRERARAARARERERAARERAARRARAAERADAERRARAREERRBARRRERARARE an/ 


{ 
@itcet CERCKOUT 


print f£(" queryh3z %d+td ", curscroffset, teamptabl) ; 


etropy (eqletmat arr, h3cursors {(curscroffset +temptabl]) ; 
eqistant lem = strles (sqistent .arr) ; 


EXEC SOL FREPARE D1 FROM : sqletaunt ; 
4f (sqica.seqlacde) { 
ZRDOMSG ; 
SLOUTP ("Prepare CED") ; 
SLOUT? ("%e°, sqica.eqlerr.sqlermac) ; 
exit (16) ; 
} 


EXEC S8OL DECLARE CED CURSOR FOR D1; 


EXEC SOL. OPEN CED; 
if (eqica.sqlacds) { 
EaeeDcaasG : 
SLOUTP (“Opem CED"); 
SLOUTP ("%e", eqlca.sqlerzme.sgierme) ; 
} 


qual_emtries = 0; 
for (:;) { 
2EBC OOL FETCE CED into :enunb; 
if (eqloa.sqicode == SQL BOF) break: 
if (eqloa.egiscde) { 
EeDCaesG ; 
SLOUT? (“Fetch CED*) ; 
SLOUTP (“%e", eqloa.sqlerm.sqlerms) ; 
} 


42 (temptabl = i) { 
EXEC SQL INSERT UNTO QUAL CI?P2 (emtry_num) VALUES (:emumb) ; 
} 

else { 
EXEC #01, INSERT INTO QUAL, CIT1 (emt ry num) VALUES (:emumb) ; 
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} 

4f (eqloa.eqloods) { 
zapCeuasSG ; 
SLOUT? ("Insert after CED"); 
SLOUT? ("%e", sqlas.eqlerzm.sqlerms) ; 
exit (16); 
) 

qual extries++; 

EXEC SOL OClOcr? WORK; 

WEWVALS ({) ; 

) 

Exec SO CLOSER CED; 


temptabl = (temptabl % 2) + 1; 


@ifdef CEBCKOUT 
priat£(" %d entries in table 44", qual entries, temptabl) ; 


dendit 

retura (int) qual entries; 

} 
{AARARAAAAARARARAARAARARRERRERRAERERARERERRERAEEREREAREREHEERRARARAHREREERONE 
e * 
bl queryps.pa -- Routines for poiat of costact retrieval e 
& oes e 
a e 
ad This file coatains: 6 ® 
t ® 


SRAAAAAAAAAAAARARARRURARERAARAAARRARARARARAEEEEREAARAUARARRER Bannennanannannh / 


@include <procegs.h> /* Header for calls to ms-pos w/ 
finclude <stdic.h> 
fiuclude <ctype.h> 


define SGLCA STORAGE CLASS extern /* Q@witah for heasdar files a/ 
SOL BEGIN DECLARE SECTICH: 


EXEC SOL. DNCLUDE citvares.h:; 
VARCRAR eritl [16]; 
VARCEAR crit2[46) ; 
VARCEAR crit3[{18]; 
VARCHAR orit4[10]; 
VARCEAR oritS [26} ; 
EXEC SOL EMD DECLARE seCTIOCN: 
EXEC 800 UCLUDE SOLCA: 


@iaclude “aesa.h* /* @tandard ASAN Neader File a/ 
static int poo type; 


EXEC SQL. DECLARE POC] CURSOR FOR 
SELECT firet name, last_name, title, office, 
agney dept, st_add div, po box, 
misc_add, city base, state, sipcode, 
mail _code, phone, affiliatica, 
maj attrib, min attrib, 
ares, scope auth 
FRM euperuser.point of ccatact 
WHERE UPPER (last name) LIKZ :ariti 
AED UPPER(min attrib) LIKE :crit2 
ARD UPPER (maj attrib) LIKE :crit3 
AED UPPER (affiliation) LIKE :arité 
~ AND UPPER (estate) = :crits; 


EXEC #04 DECLARE POCZ CURSOR FOR 
SELECT firet name, last name, title, offiaa, 
agncy_dept, et_add div, po boz, 
misc add, city base, state, ripocde, 
mail code, phone, affiliatioca, 
maj attrib, min attrib, 
area, scope auth 
FROM superuser .point of contact 
WEERE UPPER (last name) LIREZ :ariti 
AED UPPER (min attrib) LIEBE :orit2 
AND UPPER (mad attrib) LIKE :crit3 
AND UPPER (affiliation) LIKE :ocrité 
AND UPPER(city base) LIKE :critS; 


221 


iat poerch () 
[PARCAAARASRARAAREARERAREEAEREEAARARERRERAREARREREREDRARRARREREARARAARARRORER 


* * 
« pesrch -- Set up the search in the poist of coatact detabase ® 
e es * a 
2 e 
RAAAAERARARAERARAAEREREAEAERENARAERERARRERERRRARRERREEARARERRAWRRARERERERRARE / 
{ 
int a, 4; - 
etatia char *affil[7] = (°CrTrs”, 

*COUNTTs", 

"STATES", 

*“FEDERALY" , 

“MILIFARYS”, 

“FRIBALS", 

=%*}; 


@ifdef CEECKOUT 
priatf("*\apesrch ") ; 
feadif 
SLOUT (“Point of coatact search") ; 


stropy (crit é arr, affi1 (whichafl}) ; 
erité.jea = strlen (crité.arr) ; 


3 = strlen (coataas) ; 

for (4 @ 0; 4 < 4; 244) critl.arr[i} = toupper (contnam[4ij) ; 
oriti.arr[4] = "\0’; 

streat (crit. .arr, "%") ; 

eritl.jiea = strlea (criti .arr) ; 


9 = wtrlem (atacrat) ; 

for (2 @ 0; 4 < 3; 44+) orit2.arr(i}) = toupper (mincrat [4]); 
erit2.arr[4] = ’\0’; 

stroat (arit2 .arr, °%") ; 

orit2?.Jlen = strlen (arit? .artz) ;: 


3 = strlen (majorat) ; 

for (42 0; 2 < 3; A¢¢) arit3 arr[i) © toupper (majorat [1]) ; 
erit3 earz({jj] = ‘\0’; 

streat (orit} arr, °%"):; 

erit3 Jes © striem (crit3 .arr) ; 


j = etrlen (address) ; 
for (4 2 0; 1 < 3; 244) crits arr[i] = toupper (address [ij).; 
eritsS .arr({j] = ’\0'; 
eritS lea = strlen (crits .arr) ; 
af (30 == 2) 

poc_type = i; 
alse { 

pod type = 2; 

etroat (oritS arr, "%"); 

oarits .les++; 

} 


if (pee_type = 1) { 
ZxXeCc S61. OPED POCi:; 
4¢ (eqica.seqlecde) { 
SLOUTP ("Cursor POC") ; 
expOmeg () ; 
exit (16) ; 
} 
} 
else { 
EXEC SQL CPEW POC2; 
if (egiaa.sqliacde) { 
SLOUTP (“Cursor POC2") ; 
exzpimag () ; 
exit (16); 
} 
} 
af (axtpoc()) { 
NEW SCREES (“contactscreen”) ; 
SLOUT? (“Sorry, but I cannct find anybody like that...°);} 
alse { 
MEW SCREEN (“pocdisplay”) ; 
} 
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dat aztpoa() 
[RERARARERARRRERRAAREAAERAERERAHARAREEADRARAAREREEEAERARARGRAARREERARERERERER 
& e 
Ld axtpoa -- Fiad nest instance in the poizt of contact database * 
2 RTE . 
ry fe 
RHARAAAAERREAHAHERRAAAHAERRERAAKERAAARARARAARAAAAAANAAAORAARReRRAERARARAEAAE / 
{ 
ewitch (poc type) { 

ease i: 


EXEC SQL FETCH POCi DFO :f nome, :1 name, :coutitie, :offica, 
tagenacy dept, :et add div, :po box, 


‘mail code, :phoaa, :affiliatio, 
‘major_attrib, :minaor ettribcte, 


4€ (eqloa.sqloode) { 

if (sqlca.sqicode == SOL BOF) { 
poo _type = 0; 
REEC SOL CLOSE FOCI; 
SLOUT? ("No more eatriest”) ; 
return (int) SQ% BOF; } 

else { 
SLOCTP (°Netah FOCI") ; 
axpaneg () ; 
exit (16) ; 
} 


} 
break: 


ease 2: 

RXEC SQL FETCE POC? INTO :f neme, :1_aeme, :coatitle, :offica, 
:ageacy dept, :st_eadd div, :po box, 
misc add, :city bese, :state, :cipacda, 
imail, code, :phone, :affiliatio, 
major attrib, :minor attribute, 


if (eqloa.eqlocde) { 
if (eqica eqlcode = SOL Bor) { 
poc_type = 0; 
EXEC SGI, CLOSE POC?: 
ROUTP ("Ho more ent riee!") ; 
return (iat) #6t_Bor;} 


aase 0: 
BLOUT? (“There REALLY are aoc more entries !*) ; 
return (int) 0; 

} 
€ _nmme.arr[f name.len)] = ’\0’; 
i_neme.ars{l neme.lena] = ’\0’; 
eontitle.arr[ecatitle.lesj] = ‘\0’; 
office arr[office.len} » ’\0'; 
agency dept .arr{agency dept .lem) = ’\0'; 
st_add div.arr{st_add div.les} = ’\0’; 
po_bez.arr(po boz.leaj = ‘\0’; 
misc_add.arr[misc add.lem] = ’\0’; 
city bese.arr[city base.lem] = ’\0’; 
state .arr{(state.lea}] = "\0’; 
zipcode .arr[{zipcode.lam] = ‘\0'; 
wail code.arr(mail code.leaj] = °\0’; 
phone .arr[(phoae.lenj] = ‘\0’ ; 
affiliatio arrfaffiliatic.ien} = ‘\0'; 
major_asttrib.arr[major attrib.ienj] = ’\0'; 
minor_attribute.arrfminor attribute.lan] = ’\0'; 
ares .arrf{area.leaj = ‘\0’; 
ecope.arr{scope.len} = ‘\0’; 


MEWVALS () ; 
return (int) sqloa.eqlicede; 
} 


int setaff (4) 
[LAAAAHAAAARARRARARARARRERRARAREEEHARERARREREAAEEAERAERARREREERRARRARERRERARER 
t e 
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® axtpoc -- Find next instance in the poiat of coatact database * 


* * 
REAARAAAAEAERARRAEEEREREREAEAAERAEEHERARAARRRAREAEEEREARARAAARAEEEHRRARARARER / 
4at 4; 


statia *affeals[{] = ("CITr*, “COUMPE", “SFATE’, “FEDERAL®, “MILITARY”, 
"PRIBAL”, “NOME” }; 

whichafl = i; 

etrapy (affeelea, affeelis {i)) ; 

MEWVALS () : 

) 


[PAGRARARAEARARAREARERAREAEREREREREEAERARRERERERRARAROREREARARERARREREREENORE 
e 

querysi.pa ~-- Routines for citation database retrieval in the 
cceeercece TS etructures area using keyword set i 


Taie fiie coutains: 


sos 2 8 © 
*# se @# 8 8 © 


RARARARAARELEAARERLERAARRUERAREREARRRERRARARAERARERARAERARARRREREERREEREREED / 


@iaciude <process . b> /* Reader for calle to MS-DOS a/ 
@isaclude <stdio.h> 


Odefine SQLCA_ STORAGE CLASS extern /* @witah for header files a/ 
EXEC SQL BEGIN DECLARE SECTICN:; 
EXEC SOL DLIDE citvurs.h; 


EXEC SOL ED DECLARE SECTION: 
EXEC SQL INCLUDE SOLCA: 


#imclude “asaz .h* /* Standard ASAN Eeeder File «/ 


iat querys1 {) 
{ 
@itder CEBCKOUT 
priats (*\aqueryel “); 
Geadif 
SLOUTS? (“structures Area Unavailable”) ; 
return (ist) qual _eatries; 
} 


fSAAERERAHAREARARARARARARRARERERARARRRERRERARARARAREREARREREAREREREREHHAARARRRRE 


leadacit - Load the next citatica from the database FOR DISPLAY 


e ® 
a searches.pa -~ Routines that use the query reutines to do searches * 
& 2 
* ry 
* Thais file coataing: ® 
® ® 
® herehO0l - search based om entries co firet Euan area screesa * 
e asrch0O0Ol - dearch based on entries on first Animal area scresee ® 
bad geereb00l - search besed on antrias ca first Structures area ecreen * 
® merch001l - Search based on entries ca first Modeling ares screen * 
& * 
bad shwaxtcit - Display the nert citatica on the screen * 
e & 
r ® 


RARAEREARARARRERARERAERARERAESERRERERENERRARRRRRERARRRARERERRRARAARERORRORER / 


@#4Auciude <process .h> /* Seader for calls to ms-DoSs a/ 
#imclude <stdic.&> 

fdefine SGLCA STORAGE CLASS extern /* #M@witeh for header files af 
EXEC 50%, BEGIN DECLARE SECTICH; /* All SQL declaraticas are in a/ 


EXEC S8OL DCLOPS citvars.h; 
EXEC S01 ERD PECLARE SECTION: 
ZxEec SOL TRCLUDE SOLca:; 


@include “asan.h" /* @tandard ASAW Header File a/ 

[PARAAARARAAAARAARERERERREREREREERERAAREERAREREAERRERAEAARAAAAHARRARAROHRREARA 
* a 
. SQL Cursors * 
* * 


ARAAERAAERERERARREREREARAERRERRERRRARRARERARARRAREREARRRARARARRRRRRRREREEERD / 
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ENC SQL DECLARE CD00 CURSOR FOR 
SELEC? authornum FROM headquarters author aitatioa link 
WEERE entry sum ~ :enumb; 


EEEC SOL DECLARE CD10 CURSOR FOR 
SELBCT q.entry num, s.suitability, t.title, @.deate peb 
rroa = headquarters.citation titles t, 
headquarters .citation search s, 
qeal citl q 
WEERE t.entry atm = q.entry am 
AD s.entry sum <= g.entry am; 


EXEC SOL DECLARE CD20 CURSOR FOR 
SELECT q.entry num, s.suitability, t.title, s.date pub 
From =—« headquarters .citation titles t, 
headquarters citation search ¢, 
qual oit2 gq 
WHERE t.entry_num «= q.eatry am 
aD 6s.entry_num © q.catry am; 


[RARRARAAAAAARAAARARERARARAEEARARERLERRERAREARKERERERENEAAAKAARAAEREREREORRARE 


e e 
& Screen “Memory” * 
* e 


RARKARAARERARERAERERARAEAAEREREREERRREERERAARRERRRRERAAERRRAASHERRERERRERES / 
int herch000 () 

{ 

WREREAMI (Screen, Window, Datum, Buttca) ; 
etropy (Cldscreen, Sareen) ; 

Selorit {0} = “\o’; 

} 

iat asrah000 () 

{ 

WEREREAMI (Screen, Window, Datum, Button) ; 
etropy (cldscreesn, Sareen) ; 

selarit [0] » ’\0’; 

} 

aut serah000 () 

{ 

RWEEREAMI (Screen, Window, Detun, Battoa) ; 
etropy (cldecreen, Screen) ; 

selorit [OJ = ‘\0’; 

) 

iat merch000 () 

{ 

WEEREAMI (Screen, Window, Datun, Buttoa) ; 
stroapy (cldscreea, Sareea) ; 

selarit [Oj = ‘“\0’; 

} 


iat herch001 () 
[MRARREAARRAARERERRARRERARERGEREEERAREEERRERREREREREERERARADRERERRERERERAREEE 


a ® 
* herch001l - Search based on entries ce fircet Rumen area screen ® 
® _———— & 
® ® 


slaialahalaiaialataiahababehahelalahbalshehsialabeinlalsiabellalaltalehlelaielaisialatelaleiialellaisiainiaisininiaidelaeidddel Lied oy 
{ 
@4fdef cCuncecor 
print? ("\aherch001 °“); 
Geadiz 
herah060 () ; 
if (queryw()) { 
MEWVALS () ; 
4£ (queryt()) { 
MEWVALS () ; 
af (queryd()) { 
MERVALS () ; 
queryh () ; 
} 


) 
) 
MEWVALS () ; 
42 (fqual emtries) { 
SLOUTB? ("Ho entries matching these criteria were found") ; 
return (int) 0;} 
alse { 
if (Imelisto()) { 
if (lehwnztait()) { 


225 


MEW _SCREEM (*citdsp1") ; 
ADD _WIRDOR (“aitdispectica”, 19, 1);} 
} 


wetura (iat) 0;} 
} 


dat herch002 () 
[ERRRARERARRRARRERERRREAEERERRERRARREARAERARORRAAAREARAERAERRRAARARRERARERRED 


® * 
bad herchO002 - Search based ca entries on Human area keyword sarees * 
* ee) e 
* ® 
halerhatahahaalahahabahahaiahalaiehebababainiaiahebababalahalahebataledahsishlelsislsiaisleleleiataintleleletnieteleisigiainieidladaiatehdsieledet tf 
{ 


@ifdef CESCKOUT 
printf ("\nhsrah002 °); 
fendir 
42 (queryw()) { 
MEWVALS {) ; 
af (queryt()) { 
WEWVALS () ; 
if (queryd()) { 
MEWVALS () ; 
4f (queryhi()) { 
42 (querya2()) { 
queryh3 () ; 
} 


} 


} 
} 
MEWVALS {) ; 
Af (Iqual entries) { 
SLOUTR? (“Ho entries matching these criteria were found") ; 
retura (int) 0;)} 
else { 
af (Imalisto()) { 
if (ishwnxtait()) { 
REW SCREEN (“cttdspi°) ; 
ADD WINDOW (“citdispaction", 19, 1);} 
) 
wetura (iat) 0;)} 
} 


dnt asreh001 () 
[ARRAAAAARARREDEDERERRERARORARRENREEERREAREDERRRRRERRERORRERAORENEERRRERRERAE 


& ® 
® aerenhooit - Search based on entries ca first Animal area screea * 
* —————————— a? ® 
* t 
slahahahalalahahalaialaiainiahalabalabniaiabuininiaheielaiadaialataialelalsinleieiaisiaiaiaisietatesieisietsinininieiaiotiotdetela addy 
{ 


@itdeft CEECKOUT 
print? ("\nasrchOol °); 
fendir 
1f (queryw()) { 
MEWVALS () ; 
af (queryt()) { 
MEWVALS () ; 
af (queryd()) { 
MEWVALS () ; 
querya () ; 
} 
} 
} 
MEWVALS () ; 
if ('qual emtries) { 
SLOUTR? (“No entries matching these criteria ware found”) ; 
return (int) 0;} 
else { 
if (fmoaliste({)) { 
4£ (lebwnxtott()) { 
NEW SCREEN ("“citdspl") ; 
ADD _WIMDOW (“citdispaction”, 19, 1);} 
} 
retura (int) 0;} 
} 
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aut serch00i (} 
[/RHARARAARAANARARARANEAERARARANAERANARAARERALARERAAAEREARAEHANHERRRARERARERRR 


@ * 
® @erah00i - Search based ca entries ca first Structures ares ecreen * 
e Creme ree ta) ® 
e * 
laalahadelatalaiatelalnlaialalabalaiallalainiahebainbalabalahialeleininlsisinisinisislatstlatdelateiniataieiotainig diet Lidl YA 
{ 


itdef cCEEcKoUr 
print? ("\a serch00l °); 
fendif 


af (queryw()) { 
MEWVALS () ; 
af (queryt()) { 
WEWVALS {) ; 
af (queryd()) { 
MEWVALS () ; 
quasys () ; 
} 
} 
} 
MEWVALS {() ; 


af (fqual eatries) { 
SLOUTRE ("Ho entries matching these criteria were found") ; 
wetura (iat) 0;) 
else { 
af (tmaliste()) ( 
if (lehwaxteit()) { 
MEW_SCREEM (“citdepl") ; 
ADD _WIMDOW (“oitdispaction", 19, 2);} 
} 
retura (int) 0:} 
} 


iat merch001 () 
[PRAAAROREDAERENDARERARERARRERAADERRRERROERERAHRAARERARRHORARAREARARRORARERER 


2. ® 
bad merehool - Search besed on entries ca first Modeling area screen * 
a ee) 2 
e ® 
eiahatahahahhahahalalalaahahabalalalhahalalahelaliehelaelaahaladadedaleteinialaigietatehttaleteitetginieidd ta 
{ 


#itdet CERCKOUT 
Print? (“\amerch001 *); 
Gendizr 


42 (queryw()) { 
WEWVALS () ; 
if (queryt()) { 
MEWVALS () ; 
af (queryd()) { 
MEWVALS () ; 
querys () ; 
} 


} 
} 
WEWVALS () ; 
4€ (Iqual entries) { 
SLOUTAP ("No entries matching these criteria were found") ; 
retara (int) 0;} 
alee { 
if (tmolisto()) { 
4f (tebhwnetcit()) { 


MEW SCREEW (“aitdsp1") ; 
ADO_WIRDOW (“aitdispaction", 19, 1);} : 
} 
weturn (int) 0;} 

} 
iat moclisto() 
[PRAMAANAARERREERERARREREREDEAAEEDERRERNEAREORHORARAERERRORRERERRARERERARANOR 
* * 
* molisto - Opes the cursor for maia citation display screen ® 
2 es ® 
® ® 


RERRARERAAEAERAREERARRERED debdedieitotel tt titi tiritiiiititrrrry; Tries waankene eeanans / 
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{ 
#itdef Cuscecor 


priat#(“\malisto °); 
Gendiz 


earreit = 0: 


ewitch (temptabl) { 


ease i: 
RXBC SOL OPEN CD10; 
4¢ (eqlca.sqlacde) { 
SLOUTP ("Curser OD1i0*} ; 
exzpOmag () ; 
exit (16) ;} 


# 


qase 2: 
EEEC 96% CPEW CD20; 


af (eqloa.eqliacdea) { 
SLOUTP (“Carsor CD20°) ; 


expameg {) ; 
exit (16) ;) 
break; 
default : 
bed _ temp (temptab}) ; 
) 
retara (int) sqloa .eqloode; 
) 
ant melista() 
[AARCRRANEREAERERDEDERANEDESEEREREAREEREDEENEDEREREERERERROORNESARRERERDELAED 
* « 
® moliste - Close the cursor for main citatica display screen a 
* TS n 
* * 
CeneeaneaneenaasaanannanenaeranenennnTenenenEnnnnnnnntenaennannnneennannnne / 
{ 


@itdef CEBCECUT 
printf ("\molists °) ; 


#Geadif 
switch (temptabl) { 
@ase i: 


EXBC 80% CLOSE CD10: 

if (eqlca.eqicode) { 
SLOUTP (“Cursor CD10"); 
exzpCmeg{) ; 
@xit (16) ;} 

break ; 


case 2: 
EXEC SOL CLOSE CD20; 
if (eqlaa.eqlocde) { 
SLOUTP ("Cursor CD20"); 
expOmsg () ; 
exit (16) ;} 
break ; 


dGefauit: 
bed_temp (temptab]) ; 


retura (iat) eqlaa.sqlocde; 
) 


iat shwaxteit () 
[PARRAAERARAERERDERNRREHAONEERERRARERANRRERARORORERERERANORERRREROEEARERRERE 


5] 2 
a shwartcit - Show nart citatica * 
« Be ce] & 
® a 
mene eeneanenaAnernannananeneennanannanennennenanenenenntannanennnenenennrens / 
{ 

dat select: 


@ifdef CEECKOUT 
print? (“\nshwnztait °); 


if (salect « doadncit()) { 
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ewitch (select) { 
ease SQL BoP: 


case SOL FETCE OTT OF ORDER: 
SLOUTB? ("You are at the ead of the list"); 
REMOVE _WINDOW() ; 


break; 
dafault : 
expimeg () ; 
exit (16) ; 
} 
} 
alse { 
ourreit4+; 
MERVALS () ; 
} 
retura (int) sqica.sqlocds; 
} 
int loadacit () 
/PAAAARARAAANAEREREAARERAERERERENEERARERAEAEREEAERERERRERERRENERRRAENEREERERE 
& r 
® loedacit - Load the citation detail display with the next citetion ® 
® _— sere rd 
a & 


RARARARADARARAAARERERARARAREERREHARARGAREE MAataaeneannakenneenenesonrennnenn/ 


{ 
ast 1, 3, &, a; 


@ifdef cEscmocT 
print? (*\aloadacit °); 


SLOUT (“Retrieving Display Fext°*) ; 


4f (temptabl == 1) { 
EXEC OGL FETCE CD10 mFFo :enumb, ‘:euitable, :workspace, 
42 (eqlca.eqicode) retura (int) eqica .sqlacde; 
} 

elee { 
=xXEC 804 FETCE CD20 OFFO canumb, :euitable, :workspace, :datep; 
4f (eqlea.sqloede) reture (iat) eqlca.sqiccde; 
} 

enumbh.arr[(enwab.lemj] = ‘\0’; 

euitable.arr[1} = ’\o'; 

workspace .arr{[workspece.lea} ~ ’\0’; 

datep.arr(datep.len) = ’\0’; 

details read = 0; 


3 = (Amt) (((flcat) workepesce.len) / ((float) 60)) + 1; 
Jj-3>474: 33 
& = 0; 
for (4= 0; 4< 4; 444) { 
m= Ek + 60 > workepace.lea ? workepace.lea - k : 60; 
strnopy (entdesc [i] .arr, Sworkspace .arr[60%1], a); 
entdeec[{i].len = 2: 
entdeec(i] .are[n} = ’\o’; 
kK += 2; 
} 
for ( ; 2 < 4;4++) entdesa(i].err[0) « "\O'; 


EXEC 860% OPEN CDOCO:; 
if (sqloa.sqlocde) { 
SLOUTP ("Cursor CD00") ; 
exponeg () ;} 
k= 0; 
for (:;) ¢{ 
v40point = sauthorlist fk}; 
authorlist [k}].lean = 40; 
/* for (4m 0; 4 < 40; 444) authorlist [k].arr[ij] =’ °; #/ 


EXEC SOL FETCE CD00 Dro :authornun: 
if (eqlca.sqlcodse) break; 
EXEC SQL SELECT author From headquarters author list 
WPFO :véOpoint WHERE authoraus = :authornus; 
if (sqlca.sqlocde) { 
SLOUT? ("Author selection... ."); 
expOcmsg () ; 
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exit (16) ;} 
authorlist [xk] .arrfauthorlist [k] .lea) = ’\0’; 
k++; 
} 
if (sqica .sqloode t= SQL EOF) { 
4f (sqloa.eqiacde) { 
SLOUTP ("“Carsor CD00") ; 
expameg () : 
exit (16) ;)} 
else SLOUTP ("Bart citation: more authors than screen shows"); 


} 
EXEC SQL CLOSE CD00; 


for (4 =k; 4 < 10; 14+) { /* MOLL for those act filled this time */ 
authorlist [4] .arr[0}] = °\0’; 
authorlist [1] . les = ©0;) 
if (k > 4) /* Truncate if we bave more than 5 */ 
for (2 = 0; 2 < Ek; 444) { 
euthorlist [k}].les = 1 > 30 * 30 : 4; 
authorlist (k] .arr[{authorlist [k].lea] = ‘\0';)} 
return (int) 0; 
} 


int resasroh () 
[PARRREARERAOREREREEREARRORERERRERRODNARHREARARAERRAERARRERERARERERRREARERREE 


* ® 
a reecerch - Rescope the search. If mo citeticas, clear the tablac. * 
& ED 2 
* ® 
BARA ASRSERERORAAAANEREAARREREERESEEEEAREDRETAREERHORAARRONEERONRESERENERREE / 
{ 

if (!qual entries) qeetup(); 

MEW SCREEN (oldscrean) ; 

} 


imt herah010 () 
[PORAREERERERDREORREEREAREREREARERERERREREAERERENRARRRENRRARERRRDARENARERES 


e @ 
® hAerchOio 8 - Setup for entries oa Eumen keyword screen bad 
& es] e 
® we 
halahalahalaialahalaiahaialalalahahalaialaiabalabuialaialaiabalabelsbetetahbaiasilatelatdatelatiolatdaiiaidgitet tated te 
{ 


@#4fdef CEECKOU? 
printf ("\nksroh010 *); 
feadif 


herch000 () ; 
if (lqual_eatries) (eff2srch{0] = eff2erch[1] © eff2erch{2] = 0;} 


WEW SCREEN ("hkeyerch”) ; 


} 


int herchO11 () 
[PEARRARARRERARRAORARRRERRERADRANEREEEEAARAERARRRRAERAARERRERERERREREORRRORED 


® a 
bad AsrchOll - Suman Effect Descriptor Type Verifination * 
t | & 
e ® 
PARANA AANA RARERANERANAREEREREDREREREKORRSEANADAANERERAERARRAREAERREENRERAe/ 
{ 


#ifdef CEEckoUT 
printf (“\nherechOl1 °) ; 


fendic 
Zor(;;) { 
if (desctype.arr[0] = *R’) {eff2erch(0] = 1; break; } 
if (dasctype.arr[(0] == ‘y’) 
ig (deectype.arzr[1] we ‘s’) {eff2erch[O] = 2: break; } 
else if (desectype.arr[1] = *E’) {eff2erch[0] = 3; break; } 
if (desctype.arr[0] == ‘g’) 
ag (desctype.arr[(1] == "L’) {aff2erch[0] = 4; break; } 
else if (desctype.arr[{i1} == ‘P’) {eff2arch[{0] = 8; break; } 


Af (desctype.arr{0] == '?’) {eff2erch[0] = 6; break; } 
Af ((eff2ereh[0]) || (decctype.arr[0] e= * ‘)) (eff2erch[0] = 0; break; } 
SLOUTB ("Hot a valid effect") ; 
UPDATE DATUM (“desct ype") ; 
} 

ADD WINDOW (“noistype", 7, 24); 

MEX? DATUM ("“aoistype*) ; 

} 


iat hkerch012 () 
[CAAAAARAheaEReanAARNARAnNeEnenAnEnNnRanAnaaeananERanneranananaaneneeneneacnn 


a ® 
* herchOl12 - Noise Descriptor Type Verification ® 
* =e * 
e e 
ahahahahahahahalahahalalabatalatalahaialaiatalahciatelabalabetehabalabeialaaleitsateltaiaaignieiac icc eet Te 
{ 


$4tdet cuncmoeur 
priatf("\ahsroh012 *) ; 


fendir 
for(;7) { 
af (deectype.arr[0] == ‘a’) {eff2ereh[1] = 1; break; } 
if (desctype.arr[0] == ’B’) {eff2erch[1] «= 2; break; )} 
if (deectype.arr[{0] == ‘s’) 
42 (desctype.arr[l1] = ‘R’) {eff2ercah[1] = 3; break; } 
else if (desctype.arr[1] == °0") {eff2erceh[1} = 4; break; } 
42 (deectype.arr[(0] aw ‘7’) 
if (desctype.arr[l] = 'R’) {effzerch[1] = 5; break; } 
elee if (desctype.arr[1] == ‘R’) {eff2erch[1] = 6; break; } 
if (desctype.arr[0] == ‘W’) {eff2erch{1] = 7; break; )} 
if (desctype.arr(0] == ‘0’) {eff2erch{l} = 8; 7} 


break 
if ((eff2erah[0)) 11 (desctype.arr[0) mm ’ °)) {eff2erch[1] @ 0; break; } 
SLOUTB ("Hot a weiid noise type"); 
UPDATE DATUM ("moist ype") ; 
} 
REMOVE WINDOW () ; 
ADD WINDOW (“azprtype", 7, 24); 
MET DATUM ("expdesa") ; 
} 


iat kerah013() 
[RAARAAAERARDRDERENERRREORNOEHRONNEDENERNDDEREEHERENENERNERERERnEREREReeEnnes 


& ® 
* AerahOi3 - Reperinestal Fype Verifiastica ae 
Cd =e rd 
* * 


SORRARAAAANERNARARERARRARAEHELERERHEEEHAERENHNRREEEEREARERHERAAARHENEREREEE/ 
{ 

@14fdef cuRCKOUT 

print? (“\ahsrahOi3 °); 


feadif 

for(;;) { 
4¢ (deectype.arr[0] am ‘r’) {eff2erch[(2] = 1; break; } 
if (deactype.arr[0] — °%’) {eff2erch[2] = 2; break; } 
if (desctype.arr[0] == ’R’) {eff2srch[2] = 3; break; } 
if (desctype.arr[0] == ‘7’) {eff2erch[2] = 4; break; } 
Af ((eff2serch(0}) |] (desctype.arr[(0] ==’ ’)) {eff2erch{2] = 0; break; } 


SLOUTE ("Hot walid type”); 
UPDATE_DATUM (°exprt ype") 7 
) 

REMOVE WINDOW () ; 

} 


iat ssrch010({) 
[ARAORANORADRRERREEEREREERDHEREREDRADREREROOREDRENONAERADEERENAEROLARAEAReae 


* s 
* @erch010 - Setup for entries on structures keyword screen * 
a a ; * 
e * 


meee R ARNE NNR AN AERA SRA ERAENAEDAREAANEAREEREAEEAENAREANHERERRENSEARERAERERNRE/ 


{ 
#ifdet cEBCKOUT 
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print? ("\nserch010 *); 
#endiz 


@s7rck000 () ; 
42 (lqual_ entries) {eff2erch[0}] « eff2erch[1) = eff2erch[2) = 0;} 


MEW SCREEN (“skeysrah*) ; 


} 


dat mercah010() 
[ARSAAARAREARDhERRtALERRORKAREAAAAERDARARERNERDOREREAREReEReRenneaenenneneane 


& * 
e merah010 - Setup for eatries ca Modeling keyword screea * 
e ec & 
* ® 
sAeneAeAeneeanaeenanannneneansennnaneanenannenEneaneneaaasronnnnnnnenanenene/ 
{ 


@ifdet CEECKOUT 
print?’ ("\nmerchO10 °); 
@eadi¢ 


merehO0o () ; 
if (iqual entries) {eff2erch [0] = aff2erch[1] «= effierch[2] = 0;} 
EW SCREEN ("akeysrch*) ; 


) 


dat esrch0i0() 
[PAAAAROASeAAaaANeAthEnaseusenenaneentteneenatennennenenenataeenenneneneannnen 


* e 
* asrch0Ol0 - Setup for eatries on Aninal keyword screea e 
2 ery * 
® * 
seeeannaneeaeeeeanannaeennaeraannnnerenannnannannennaranennnannnanneennnennn/ 
{ 

@ifdef CEECKCUY 

print? (“\nasrahO10 °); 3 

fendizt 

esrah000 () ; 


wpecies) .arzr[(0] = '\0’; species! lea 
opectes2 .arr[0}] = '\0’; species2.len 
epecies3 .arr[(O] = °\0'; species3.les 
epecies4.arr[0] = ’\0’; spectes4.len 
MEWVALS () ; 

MEW_ SCREEN (“akeyerch*) ; 


“as 


Ls en i | 
9o9go 


=. 


Aaiaiahaiaiainiaininlininleieelelalsieleilatablidaninaiii LL ETE TTT ee Te 


tegtdisplpe -- Routines that display text fields from “MEMO FILE" 
rere 


This file coataing: 


*ASaaenAeneeaaseananuaanaanasnnnanannnenneannnennnnanentnnnnnnanaseennnnnne/ 


#include <process .h> /* Reader for calls to MS-Dbos af 
@Anclude <stdio.h> 

fdefine SQLCA STORAGE CLASS extera /* @witch for header files e/ 
EXEC SQL REGION DECLARE SECTION; /* All 8OL declarations are in a/ 


fAnclede “‘asan.h" /* standard ASAW Header File a/ 


int dsplabet () 
[ARAAAAARRARRADEREL DEE EDERNEENEERERENNAREHHERARENEREREEORDEHEEENEREEDEDeRRena 
® 2 
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a deplabst -- Display abstract * 
e a 
ahalaalaahalalalalahahalalahalalalalaialalalalalalalchaiaialadalalabalalalehelainbalaiaialaletehlotetdelinitiaiaies lat Tf 


{ 


@ifdef CEacKouUT 
print£("\n deplabet *); 
Gendizr 


4¢ (Idetaile read) get detaile(); 


4¢ (abstract.lem) { 
strncpy (nertmenc.arr, abetract.arr, 10); 
getmamo () ; 
MEW SCREEN (“showabe’) ; 
ADD_WINDOW ("shwaztabe”, 22, 1);} 
else { 
SLOUTP ("Ho abetract available’) ; 
} 
} 


iat dsplerit () 
/AARRKARNEAARERARRNNERRERRRNERARERNSANRLENEEENRERHERNORERRHEREKORENEREnRRRene 


e * 
] deplerit -- Display critique e 
2 & 


Sanaa a nanenenesennnaaneenanenennnnnnannenenannananannnennnennenneanneaenaene/ 


{ 
#4tdef cEacKour 
print? ("\n deplerit *); 


if (Ideteaile reed) qet_details (); 


switch (critdisp) { 
Gage 0: 
if (critiquel.leq == 10) { 
etrnopy (nextmemo.arr, critiquel arr, 20); 
getmamc () ; 
REW_SCREEM ("showabs*) ; 
ADD WINDOW (“shwartrev", 21, 2); 
WEWVALS () ; 
aritdisp = i; 
return (int) critdiep; } 


a¢ (eritique?.len = 10) { 
etrncpy (nextmemo.arr, critique? arr, 10); 
getmamo () ; 
MEW SCREEN (“showabe") : 
ADD WINDOW (“shwaxtrev*, 21, 1); 
MERVALS () ; 
eritdisp = 2; 
return (int) critdisp; } 


aif (critique3.lem == 10) { 
etrnopy (nexrtmemo.arr, critiques arr, 20); 


qgetmanmo () : 
MEW_ SCREEN (“showabe") ; 
ADO_WIKDOW (“shuaztrev*, 21, 2); 
MEWVALS () ; 
eritdiep = 3; 
retara (int) critdiep; } 
defauit : 
SLOOUT? (There are no more critical reviews") ; 
eritdiep = 0; 


ADD_WINDOW("shunstabe", 21, 1); 
wetnura (int) critdisp; 
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Sut 
[PEREREERAERARARDRRAREEDHRERAREHHREAROREHORANEHAROREREEEREARARAEARRAERERORARE 


* e 
® getmenc -_ Retrive a memofield fram the database * 
® 


& 
ahaahaahalaalahalehalahalahalahalalalaiabaiahahabaialabadaladadabalatalelelniaielaleleltalielalatsiaiainaiaieinisteieiel tal ed et A 


{ 
FILE *fopea(}), maemo; 
iat fwrite() ; 


@ifdef CEECKCUY 


neaxtmens.les = 10; 


EXEC SQL SELECT memo _text FROM headquarters memo file DFTO :bigdisplay 
WEERE block number ~ :naxtmamo; 
if (eqlcea.sqloode) { 
SLOUTP ("Cannct find maemo block") ; 
meas ; 
SLOUT? (eqlca .sqlarm .eqlerms) ; 
wetura (ist) 0;)} 


if ( (memo @ fopen ("txtblk\\mamotxt txt", "w")) am WOLL) { 
SLOUTS? ("Error creating memofield taztblock“) ; 
retura (int) 0;} 


fwrite (bigdisplay.arr, bigdisplay.les, 1, memo); 
fprint? (memo, °\n\n") ; 

faloese (mano) ; 

retura (int) 0; 


} 


int get details () 
[PEARRADEREAAAARAAAERORARAERAERAREEEAARERERANREERERERRREERANEERRKHORERERERERED 


& ® 
* get details -- get the poisters to the detailed memo fields ad 
& & 


SeeMeeeeeanassaasanaenerenenaenaanenennenenenenetennneannnentennnnnneasaanen/ 


{ 


#ifdef CEECEOUT 
priatt(" getdeteiis “); 
fendir 


EXEC SGU SELECT ABSTRACT, CRITIQUE Ri, CRITIQUE R2, CRIFIQUE RI 
FROM headquarters. Citation details WHERE entry nu « :emuab 
INTO :abstract, :critiquel, :aritique2, :critiques; 


if (eqloa.sqloocde) { 
SLOUTP ("Caanct find deteils*) ; 
maepceasa ; 
SLOUT? (eqlca .sqlerzme .eqlerrns) ; 
returm (int) 0;} 


#iftdef CEBCECU? 
priat®(" Abe *d4, Crit td, %d, %4°, abstract. lea, eritiqual.ilaen, 
aritique2 .ian, eritiques. lem); 


fendit 
eritdiep = 0; 

details read = 1; 

} 
[ARPPRERNERERERENDRORRRERDREENEDEAERERRERERRRREERRRRRHERERERERARARERRERRAOEA 
® * 
al ee) ma* ~ All user information for a particular MFR ® 
ft e 


aahalahalalalaahahalalahalahatalahalalaahabchaialahelalababelelbialetaiaheeeltetataiten tt LLL Ty 


fAnclude <stdio.h> 


fidafine SQLCA STORAGE CLASS extern /* witch for header files a/ 
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@4nclede *asen.h* /* @tanderd ASAN EZeader File a/ 


[RRARRERRRAEREEREHAREREEORERERERERERERERNAEHERRR AREA RERARARREERRERENERORRARS 
* 

malisto <--~- Opem cursor 82 for a list of user informatica 
as of navigetica pointes ca a particuler MPR 


Routine executes am cpem cursor ccmaad for cursor 82 end thea 
returas to the onlling program with the ORACLE states code. 


Mote: Modifticaticas to this functica may impact the related 
functions mtlist£() and mtlistc() that fetch rows aad 
close the cursor aad, possibly, functicas that oall 
these utility routines. 


sep eee Se Bee SB 
oe Ss 2 #8 8 8 2 BD PD 


nlahalatatalabalalabalalalatalahaiahalainininicialalahsbaleiaialeibslsiieleebeieeitabtasieiieinii Te CTT 


{ 
@ifdef CEECKOUT 


printf (“\amalisto *); 
fendir 


etropy( aid.arr, seroid .arr) ; 
stroat (aid .arr, "%") ; 
cid.lem = strlem(cid.arr); 


RXEC SOL DECLARE SZ CURSOR FOR 
SELEcr fiz label, floecr_ref, Geiling ref, fix id, fix type, 
, azteca, fiz ist, f£ix_loa, fix red, fix dist, 
fLlccr, cailing, width left, width rigst 
rrom mt reegquenta 
WEERE fix label LIKE :cid 
ORDER BY fix label; 


priat?(° Opea: %1d °, eqica .eqicode) ; 
deadi¢ 

retura (iat) sqloa.seqlocde; 

} 


iat malist?() 
[ARARRRARRAAREREHNReHANeRAAAEReAAAAnAnARNRenEHENAtaeeRAheneanehandeneneanens 


® ® 
* malist£ --- Fetch a row using the opened cursor 82 for MFR led 
® ew Mavigation Point User Informatica * 
e t 
e Routine executes an fetch command for cursor #2, which is assumed * 
e to have bean opened, aad then returns to the calling program with * 
* the ORACLE status acde * 
e * 
bel Rote: Modificaticas to this function may impect the related * 
bad functions mtliste() aad mtlistea() that open and close the * 
e cursor aad, likely, functions that call these utilities * 
* ® 


saaeannccenseseeananaennaanssrenananeenansereaannenenneennnennnnnennssennaan/ 


{ 


stropy (optss, = "): /* I£ you don’t use VARCHAR, you have to */ 

etropy (optr4, ° "); /* elear the space or weird things happea */ 

EXEC 80% FETCE £82 UFTO :m2bv, :aptri, :Optr2, :Gurfixid, 
‘qurfistyp, :eurartec, [aptrs, :optr4, 


‘CGurfizrad, :curfinzdist, tiptri, tiptr2, 
;Gurwidleft, :curwidright ; 


prefixzid.arr{(prefixid.lea}] = ’\o’; 
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prefixtyp.arr[prefixtyp.lea] = ‘\0’; 


Gitdef CumckourT 
priatft(“ Fetah: tld °, eqlon.sglacde) ; 


Gendirc 

retura (ist) sqlos.sqlocde; 

) 

iat malists() 
LARAAAHARARARASHARARARAATARARARAARARERAHARARRELERARHEARHARETARERARAERARRARARE 
a * 
* malista <--~- Close curser 82 for Wavigation Poiats * 
® ee ad e 
& e 
e Routine ezecttes a close cursor command for cursor 82 aad thea bed 
* returas to the calling program with the ORACLE status code. - 
e a 
® Hota: Modificatioas to this function may impact the related * 
® functions mtlisto() and mtlistf£(}) that copes the cursor * 
* end fetch rows using it aad, possibly, fuacticas that « 
* -@all these utilities * 
* ® 


SAAARARRAERERERAAARAREDREDERERENAERRERRREERERAERRARRARREEEAARROERERAREREAEREE / 


{ 

ifdef CEECKCUT 
print? (°\nmetlistea *); 
Gendif 


EXEC OGL. CLOSE 82; 
#ifdef CHECKOUT 
print? ("Cloee: tld“, eqlan.sqlacde) ; 


fendif 

return (iat) sqlon.sqiacde; 

} 
 hehahahahahalsiainiainiaiahabadabeiedalalaiaiatzinhahatelalelehelatainiehsishelalellaiaiaialalaiatataisieteinieielaininininiaioiohshddcledLdeoy A 
/* a/ 
/* ASAN EEPORT GERMERATOR MODULE a/ 
/* a/ 
/* January 26, 1907 */ 
/* e/ 


[{ctatenner REERKRARARSHAASRAREEREARAREARRERRAAAAAHAERAEREARTERAAARRNEREE eeannnean / 


finclude <precess .h> /* Reader for calls to Ms-Dos a/ 
fanclude <stdic.h> 

$define SQOLCA_STORAGE CLASS extern /* @witoh for header files a/ 
EXERC SGL BEGIN PECLARE SBCTICH; /* All sot declaraticas are in a/ 
EXEC SQL. DNCLUDE hoetvarse.h; /* these header files a/ 
EXEC 80% DERISUDE fabarris.b; 

VARCEAR comparemis [8]; /* Last mission used */ 

VARCEAR comparentr (26) ; /* laet MPR used */ 

VARCEAR ocmpereac [12] ; /* Last aircraft used */ 

double exzptab [27]; /* Space for “ROUTE.BAS" Table */ 


int day ope[12}, aight _ope[12]; 


#include “asan.h" /* Standard ASAN Reader File a/ 


EXEC SOL DECLARE LINDAL CURSOR FOR 
SELECT o _iabel, m ident, aircraft, activity 
rReM activities 
ORDER BY o label, aircraft, = ident; 


REBC SOL PECLARE LINDAZ CURSOR FOR 
SELECT day, night FROM cperaticas 


WEERE activity = :activity 
CRDER BY month ASC; 


SELECT « label, m ident, eircreft, activity 
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char moeth [13] [4] = ("CAN", “FEB", "MAR", “APR°, "MAT", *JUE’, 
°3UL", "AIG", “SER", “OCF, "NOV", “DEC, "ANY*}; 
int eta_veiesi [10] [2], rtn_vwale2[10} [2), rta_vals3 [10] [2]; 
int rtn_vaied [10] [2], rtn_valeS(10] (2), total; 
iat anncy flag = -2, hearing flag = -2; 
int sleep flag = -2, livestock flag = -2, math[20]; 
int speech flag = -2, glass flag = -2; 
dat compare flag = -2, species flag = -2, index: 


rrILE *fopea(), *xpt; 
iat a; 
etropy (altilewv, ° "}; 
zpt = fopen (name, “w"); 
a¢ (xpt <= wou) { 
printf (°\nBed filename %e°, name) ; 
exit (26) ;} 


tablel (rpt) ; 
tbi2 (rpt) ; 
tables (rpt) ; 
Exec 801% OCPEN LIBDAS: 
af (eqlca.sqloode) { 
printf ("Open 3: %s°, egica . sqlermm .sqlerms) ; 
@xit (4); } 
for (400; ; 44+) { 
Rxec OOL FETCE LINDA mFVO :ercid, :miselabi, :ac Beme, ‘activity; 
4¢ (eqlca.sqloode am SQL, BOF) break; 
if (eqica.sqlocde) { 
printf? ("Fetch 3: ts°, eqica.eqierrm.sqlerznc) ; 
exit (4); } 
ereid .arr[erctd.lem) = ’\0’; 
miselabl .arr(misslabl.leaj = ’\o'; 
ac_neme.arriac name.lea} = ’\0’ ; 


filirctawals (4) ; 
landuse (rpt , 4) ; 
taccasequential (rpt, 4) ; 
minor (rpt,4,1); 
considerable (rpt,i, 1); 
not considared (rpt, 4) ; 

) 

EXSC SOL CLOSE LIOMDAI; 

references (rpt) ; 

fcloee (xpt); 


report) (name, which) 
char same[); 
Sat which ; 
{ 
FIL *fopea(), *xpt; 
int a; 
etrepy(altlev," °°); 
spt « fopea(neme, °w); 
if (xpt == MOLL) { 
printf (°\nBad filename %e", mame) ; 
exit (16) ;} 


EXEC SOL OPEN LIMWDAS; 
af (eqica.sqloode) { 
print? (“Open 3: %s*, eqiaa .sqlermm.sqlerrms) ; 
exit (4); } 
for (400; :44+4+) { 
ZxaC 9QL FETCE LOA OFT iereid, :misslabl, sac _ ame, :activity; 
4f (eqlaa.seqloode == 9OL BOF) break; 
if (eqlca.sqloode) { 
print? ("Fetch 3: te", sqlca .sqilerm.sqlerzme) ; 
exit (4); } 
ercid.arri(sreid.len} = ’\0'; 
miselabl.arr{misslabl.leaj] = ‘\0’; 
ac _name.arr([ac neme.lea) = ‘\0'; 


f2lirtavals (4) ; 


landuse (rpt, 4); 
inconsequential (rpt, 4) ; 
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optréd = show.ica; 
ccmpearemtr.arr[0j] # °\0’; 


EXEC SOL OPEN LIMA; 

if (eqlca.eqlacde) { 
print?’ ("Cursor 1: %e°, sqica.sqlerms.sqlerms) ; 
exit (4); 
} 


fpriatf (cpt, “DESCRIPTION OF PROPOSED ACTFIOM\n\n‘) ; 
fpriat? (rpt, “The proposed actioa, known as Se, \n", ASSESSMENT . name) ; 
fpriatf (xrpt, “ (te) \n*, ASSESMEEW? . desc) ; 
fprintt (rpt, “consiste of the use of the MFR segments as described in Table \ 
2.\a"); 
fprintf£(rpt, “The eubsonic flight operations proposed for these MPR segqments\n") ; 
fpriatf (rpt, "are described in Table 2.\n\n°); 


for (:;) { 
=ZXBC S9GL FETCR LIBDAL OFPTO :ercid, imiselabl, :ac_ same, :activity; 
if (eqica .eqlcods a» 2GL BOF) break; 
if (sqica.sqloode) { 
priat?("Fretch 1: %s", eqiaa.sqlerrm.sqlerzme) ; 
e@xit (4); } 


i¢ (tetrncmp (comperemtr.art, srcid.arz, ezcid.len)) scceatinaue: 
etracpy (ccmparemtr.arr, srcid.arr, sroid.las) ; 
ereid.err(srcid.len] = ‘\0’; 

misslabl arr (miselabl.lem] = ’\0’; 

ac nape .arrfac name.lemj] w= ’\0’ ; 


fpriatt(rpt, “Fable 1: Description of MFR te\n\n", ercid.arr) ; 
fprinttf (rpt, “ MAV \n"); 


fprint£(ept," POUFF FIX RAD/DIS LATT TODS LOMGTTUDE\n") ; 
Sprint (xpt , “------- nnn ~~~ en no = + \a"); 
2¢ (malisto()) { 
expomsg () ; 
exit (4); 


while ( Imealistf#() ) { 
{int 4,4; 
for (imercid.len, jo0; 4 < a2bv.lem; i++, 4++) 
curnavpt .arr[{j] = a2zbv.arr [ij]; 
curnavpt .arr[4] = ‘\0' ;} 
ourfizid.arr(curfirid.les] = ’\0'; 


show. .lat[3] = ° '; 
show.loa[3] = ‘ ’; 

fpriatf (rpt,° te te %034/%034 %e %e\n", 

curnavpt .arr, curfizid.arr, curfizrad, curfirdiet, ehow.iat, show.loa) ; 


} 
fpriatt (rpt, “\n\a\n") ; 


af (sqlca.sqilcode f= Sgt, BOF) printf (°\ate°, sqica.eqlerm.sqlerrms) ; 
malista({) ; 


} 
EXRC SQL CLOSE LIMMai; 
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comperemtr.arr[0] = ’\0’; 

compareas .arr[0] = ‘\0’; 

EXEC SOL OPEN LINDA; 

42 (eqlon.sqiacde) { 
priatf ("Cursor 1: te", sqica.eqlerrm: .sqlerms) ; 
exit (4) ;} 


for (;;) { 
EXEC SOL FETCH LINDA] VFO :sraid, ‘miselabl, :ac_name, :activity; 
af (eqles .sqlocde w= SQL BOF) break; 
if (eqloa.sqicode) { 
printf’ ("Fetch 1: te”, eqica.eqlarm.eqlerrmas) ; 
exit (4); } 


4¢ (et rnamp (comparemtr.arr, ercid.arr, eraid.lem)) { 
ercid.arz{ercid.leaj] = ‘\0'; 
etrncpy (ccmparemtr.arr, ercid.arr, ercid. lem) ; 


if (etrnamp (compareac.arr, ac_neme.arr, (unsigned iat)12)) { 
ec_neme.arr(ac neme.lenj] = ‘\0’; 
etraopy (compareac.arr, a0 seme.arr, (unsigned int) 12); 


EXEC SOL SELECT power _ units FACM utrseltab 
INTO :pr_pwr_u WHERE aircraft «= 726 _ name; 
1f (eqloa.sqloode) ( 
Prints ("Power unite ts", eqice .sqlerrm.sqlerms) ; 
exit (4) ;} 
Pr_pwe_u.arc[(pr pwru.leaj] = ’\o’; 
} 


miselabl.arr{misslebl.len} = *\O'; 


EXEC SOL SELECT sortie size FROM missions UFTO :ac_in form 
WEERE miseica = :misslabl; 
if (eqlca.sqlooda) { 
print?’ (“Sortie size te", eqloca.seqlerrm.sqlerrac) ; 
@xit (4) >} 


‘wrom mtr flight peru 
ImfO :altlevel, :altlev, :ac_powar, :ac speed 
WEERE activity = ‘activity 
aD seq = 1; 
if (eqlca.aeqlecds) { 
printf ("Flight perameters %e", eqica.sqlerm.sqlerrmac) ; 
&f (sqlcaa.sqlcode == SGL_EOF) { /* For cheaking caly 1 */ 
altlevel = 300; 
stropy (altlev,"? #*); 
ac power = 1006.00; 
ac_epeed = 450; 


} 
else exit (4); 


fprint? (rpt,"\n\n\nPable 2: Descriptica of Flight Operations oa %s \ 
by Moath*, ercid.arr); 
Sprint?’ (rpt,*\n\n\nMrssIom ts (24 ATRCRAPT/FORMAT ION) \n\a*, 
miselabl arr, ac_in for) ; 


fprintz (rept, "AXRCRAFT: ts POWER: %7.21f te\a", 
aC_Dame.arzr, a0 power, pr_pwr t.arr) ; 

fprint£ (rpt., "ALFITUDE: %64 ts SPEED: %&7.21f kte\a\a", 
altlevel, altiewv, ac speed) ; 

fprintf (xrpt, © OPERATIONS \n") ; 

Sprint (rpt , "MOMrrE DAY NIGRT\n") ; 

fpriaté (rpt , °-------~------~-~------~~- \a"); 


EXEC SOL OPEN LOWDA2; 

af (eqloa.sqlacde) { 
printf (“Curser 2: ts", eqica.sqlerzm.eqlerms) ; 
@xit (4); } 


EXEC SOL FETCE LINPA2 mrro iday ope, rmight ops; 
for (480; 4 < 12; A+++) { 
Sprint? (rpt," te &éd %4d\a°, 


month[1], day_cpe[4], sight _ops[4j);) 
EXEC S0L CLoss Lowa2; 
} 
RXEC SQL CLOSE LINDA; 
} 


table3 (rpt) 
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rus ‘trpt; 

{ 

dat. i, 3: 

double templ, temp2, add, 10gi0(); 


fpriat? (rpt, “\CSUAEARY OF PREDICTED MOISE EXPOSURE\a\a") ; 

fprintf (rpt, "Molee exposure produced by aircraft operaticas may be \ 
specified in e variety\n°) ; 

fprint? (spt, “of units. The noise of low altitude high speed flights ca \ 
Militery Praiaiag\sa*); 

fprint? (xpt, “Routes is epecified for current purposes by a cumulative noise \ 
metric onlled\n") ; 

fprintf (xpt, “the caset rete adjusted moathly day-aigkt average, A-waighted \ 
sound lewel, \a"); 

fprintf (rpt, “abbreviated Ldumr. As described by Plotkin et al. (1987), \ 
this metric is\n"); 

Sprint? (xrpt, “based om an iategration pericd equal to the cnleadar meath \ 
with the highest \n") ; 

fprint?f (rpt, "number of cpereticas.\n\a\n") ; 


oomperemtr.arr[0] = ’\0’; 


EXEC SQL OPEN LIMDAS; 

4f (eqloa.sqlacde) { 
printf (“Curser 3: te*, eqlas.eqlerm.sqlerms) ; 
exit (4); 
} 


fprintt (rpt,"*Table 3: Summary of Marizum Noise Exposure Produced by Flight \ 


Operaticas\n\n\a") ; 
fprintft(rpt,” MPR Migesion Aircraft Month Distance Ldnar\na\n") ; 


for (ja0;;5++) { 
EXSC SQL. FETCE LOAD INFO :ercid, :miselebl, :ac_ name, :activity; 
if (sqics.sqlicode = 8g. BOF) break; 
Af (eqlaa.egiloede) { 
printf ("Fetch 3: te", sqlca.sqlerrm .sqlerzms) ; 
exit(4); } ° 


ereid .arr{sraid.lesa}] = '\0’; 
if (etrnasp (comperemtr.arr, sreid.err, sroid.ien)) { 
etracpy (ccmperamtr.arr, ercid.arr, sroid.lem) ; 
fSpriat£(xrpt, °\at-9e°, ercid.arr) ; 
comparemis.arr[0] = ‘\0’':; /* itnsure that these fail for aew a/c */ 
compereac.arr[0] = *\0’; 
) 
else fpriatfi(rpt, "\a a 


miselabdl.arr(micelabl.les] = ’\0’; 

af (etroamp (comparemis.arr, miselabl.arr, miselabi.len)) { 
etrnopy (ccmperemis.arr, misslabl.arr, miselabl .ian) ; 
comperemis.arr[comperemis.ien) = '\0’; 
ocmparesac.arr[O] = ’\0’; 


REEC SOL SELECT sortie size FROM missions INTO tac_in form 
WEERE mission = :missilabi; 
4£ (sqlca.eqloode) { 
printf (*Sortie size te", sqica.eqlerm.sqlerms) ; 
@zit (4) ;} 


fprintft(rpt, “%¢-9e", miselabl .arr) ; 
} 
else fpristf(rpt, ° 82s 


a0_name.arr(sc_neme.lea] = ‘\0’; 

42 (strncmp (comparesa.arr, ac_name.arr, ac neme.len)) { 
stracpy (comperesc.arr, sc _name.arr, #0 name. lan) ; 
oomparead.arzr(ac name.lem)] = ‘\0’; 
fprinatf(rpt, ° %-3e", ac_name.art) ;} 

else fprintf(rpt, °\n "); 


EXEC SOL OPEN LTMDA2; 

if (eqlea.sqlcode) { 
printf ("Cursor 2: activity *d\n %e", activity, eqlca.eqierm.sqlerms) ; 
exit (4); } 


EXSC SOL FETCH LINDA2 INTO :day ope, :aight ope; 
if (eqlas.egqicaccde) { 
print£ (“Fetch 2: %s", eqlca.sqierm.sqlerme) ; 
exit (4); } 
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EXEC 96%, CLOSE LINDA2; 


add «= 0; 
andez = 0: 
tamp2 = 300.06; 


for (4m0; 2< 12; 44+) { 
tempi = (double) (day opse[i} + 10 # aight ope [i]) ; 
if (tempi > add) { 
i= (templ < temp2) temp? = tempi ; 
add = tempi; 
aadez = i; 
} 
} 
if ((add-temp2) < 0.05) index = 12: 
math[4] = index; 


EXEC SOL. SELECT sortie size 
FROM miesicas 
FTO :ac_in form 
WHERE missica = :missilabl; 
Af (eqice .sqiacde) { 
print? (“Sertie size te", eqlcaa.sqlerrms.sqlerzms) ; 
@xit (4) ;)} 


4f (add > 0) add = 10.0 © togi0(add @ (double) aa_in fom) - 64.1; 
alee add = ~1000.00; 


/* hie is a bit sloppy we should subtract 10 LOG10 of 
the aumber of seconds in the month instead of 64.1, but re a/ 


Sprint? (workspace arr, “SELECT ACFt04d FROM utr r ezp tab", activity) ; 

workepase.len © strlen (workspace.arr); 

EXEC SOL PREPARE steer FROM iworkspece; 

if (eqloa.sqlocde) { 
printf (“Prepare: %s", sqlaa.sqlerm.sqlerms) ; 
@xit (16) ;} 

EXEC S61 DECLARE PD CURS CURSOR FOR set; 

EXEC SQL OPEN PD CURS; 

af (eqica .seqiccde) { 
printf ("Dyn Open: ts", eqlca.sqlerrm.sqlarme) ; 
@xit (26) ;} 


EXEC SQL FETCER D_CURS DFTO :axptab; 
if (eqlea.eqlecds) { 
printf (“Exposure table: $s", sqlaa. eqlierrmm .sqlerme) ; 
if ((eqlca.sqlcode == sgt, _ BOF) |] 
(eqica.sqloode == NULL FETCEED)) /* For checking oaly 1 */ 
for (4 = 0; 4 < 27; 44+) exptab[i] = 0.0; 
else exit (4); 
} 
EXEC Sql CLOSE D Cons; 


4f (add > -800.0) { 
idmuril = eaxptab[(0] + add; 
alevel(4}[0] = expteb[0]; 
} 
alee { 
idmarl = (double) 6; 
alevel [jj [0] = o; 


if (add > -800.0) { 
idmmr2 = exptab(i6] + add; 
alevel.[3][1] = easptab[16]; 
ties { 
idmr2 = (double) 0; 
alevel[(4j[1] = 0; 


Af (add > -500.0) { 
idmar3 = exptab[19] + add: 
alevel[4$][2] = exptab[19}j; 


else { 


ldumr3 = (double) 0; 
alevel[4) [2] = 0; 


af (add > -300.0) 
Idnmrd © 0.5% (azptab [20} +exptab[21}) tedd; 
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elevel [Jj] [3] = 0.5 (exptab [20] +exptab[22]) ; 


} 

else { 
idemré = (double) 0; 
alevel [4] [3] = 0; 

} 


a2 (add > -500.0) { 
ldemrsS @ exptab[22] + edd; 
alewvel [4] [4] = expteb [22]; 


else { 
idemarsS = (double) 0; 
alevel[j] [4] = 0: 


idemr{$] [0] = ldemri; 
lamar [5] [1] = ldemr2; 
idamr[4j [2] = ldear3; 
idemr [$j [3] = ldemré; 
Udeme {4} [4] © ldemrs; 
fprintf(rpt," %-3e 0.0 miles *, month [index]) ; 
af (ldemrl >= 45.0) fpriatt (rpt, "46.122", ldemri); 
else fpriztf (rpt,” ~°); 
fpriatt (xrpt, "\a\t\t o.3 miles a? 
Af (ldmmr2 de 45.0) fpriat£(rpt,"46.11¢", Lammrd); 
@lse fpriatf£(rpt," -"); 
fpriat? (rpt, "\a\te\t 1.0 miles *); 
Af (le@emr3 >= 48.0) fprint? (rpt, "86.112", daar) ; 
° else fprint? (xpt,° oe 
Sprint? (rpt, °"\n\t\t 1.5 miles *}; 
Af (lammrd d= 45.0) fprintf(rpt,°86.11£°, idemrd); 
alee fprintf£(rpt,* -"); 
fpriatf (rpt, °\a\t\t 2.0 miles "); 
42 (ldumrS >= 48.0) fprint£(rpt,°%6.11£", Ider); 
else fprintf(rpt,* -*); 
} 
EXEC S961 CLOGE LINDA; 
} 
f£ilirtawals (2) 
amt i; 
{ 
rte _velei[(1] [0] = annoyance (ldomr[i} [0], 6 (rtm welesi[1} [21]})); 
rta_wale2[i} [0] = aancyance (ldemr [ij [1], & (rtn_wale?2 [1] [1])); 
zta_veles3[1] [0] = anncyance (Ldewar [4] [2], & (xtm_vale3[1} [1])); 
rta_valsd {2} [0] = anacyence (idumr (tj [3], &(rtn_vale4é [2] £2])); 
eta vaiesS[([1)(0] = eanancyance (ldumr[i] [4], & (xta_welsS[1) [1])); 


rtn_walel[2} [0] 
rta_vaels2 [2] [0] 
rta_vale3(2] [0} 
xtn_valsé[2} [0] 
xta_vals5 [2] [0} 


rtn valel{3} [0] 
stn vals? [3] [0] 
rtn_vals?(3] [0} 
rtn_valsé(3j[0) 
sta_valsS(3} [0] 


rta_valesi [4] [0] 
xtm_wale2 [4] [0} 
rte_vwals3(4j [0] 
xta_valsd[4] [0] 
rtn_waleS [4] [0] 


rtn_valel [5] [0) 
stn _vals2 [5] [0} 
xta vals3(S} [0} 
xtn_velsé4(8] [0] 
rta_vals5[5} [0] 


rta_ vals [6] [0) 
rtm _vale2 [6] [0} 
xta_vals3/[6} [0] 
rtn vale4[6} [0] 


& (rta_valel [2] [1])); 
&(rtn_wele2 [(2} [1})) ; 
& (xtn_vwale3 (2) [1])); 
& (rtn_vale4 [2] [1])); 
& (xta_valeS [2}[1])); 


hearing damage (alevel [ij [9], 
hearing damage (alevel [i] [1], 
hearing damage (alevei [i] [2], 
bearing damage (alevel (4) [3], 
hearing damage ({alevel [1} [4], 


(alevel [4] [0], 
(alevel [4] [1], 
(alevel [1] [2], 
(alevel [1] [3], 
(alevel [4] [4], 


& (rtn_valel [3] [1]), 
& (xrtn_vais2 [2] [1]}), 
& (xtn_vale3 [3] [1)), 
&(rtn_ vaisd[3]} [1]), 
6 (xrta_vaies [3] [1]), 


sleep interference 
sleep interference 
sleep interference 
sleep interference 
sleep interference 


(& (xrtu_walei [4] [2])); 
(6 (xrta_wales2 [4} [1})); 
(4 (xrta_valed [4] [1])); 
(& (rta_waleé {4} E2}})}; 
(& (xtm_waleS [4] [1})); 


sem land use 


(6 (rta_wale2 [5] [(1])); 
(6 (rta_wale3 [5] [1]}); 
(6 (rta_valed[5}[1})); 
(& (rtm_weie5 [5S] [2})); 


livestock damg (6 (rtm valel {€J} [1})); 
livestock demg (&(rtn vals2 {6} [1])); 
livestock damg (&(rtn vals3[6] [1])); 
livestock damg (6 (rtn_wvaled[6}[1]})}); 
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a); 
4); 
4); 
4); 
4); 


xta_valeS [6] [0] = livestock damg (6 (rta_wais5 [6] [1})); 


sta_valel(7][0} = speech interference (&(rtm_vale1 [7] [1})); 
rta_vale2[7][0] = epeech_iuterference (£(rta_vals2 [7] [1])); 
sta_vals3(7}[0} = speech_iaterference (6 (rtu_vele3[7] [1]}) : 
xta_vale4[7}[0] = speech_interfereace (&(rta_valsé [7] [1})); 
rta_vals5[7}[0] = speech interference (6(rtm_vele5 [7] [1])); 


rta_walsi(®}[0] = glass breakage (6 (rtn_vals1[8} [1})); 
wta_vale2($][0] = glass breakage (&(rta_vele2 (8) [1})); 
rtn_vais3[{®)[0}] = glass breakage (6 (rtm _wals3{®}[1})); 
xta_vale4é[{6} [0] = glass breakage (¢(rt=_walsé[8][1])); 
rta_velsS[@}[0] © glass breakage (&(rtm_vale5[6}[1})); 


rta_vnisi[9}[0] = effects comparison (6 (xrta_walel (9) [1])}); 
ztn_vals2 (9) [0] = effects comperisoa (6(rta_vale2 [9] [1])); 
stn_vals3[9] [0] = effects ccmperisca (6 {zta_vwais3 [9] [1})); 
rta_vale4[9}[0] © effects comparisca (&(rtm_vale4[9] [1})); 
rta_vais5{9}][0] = effects comparisca (6 (rtm_valeS [9] (1])); 


fpriatf£ (rpt, “\SPRSCRIPTION OF LAND USE COMPATIAILIFY\n\n") ; 
fpriatf(rpt, "MFR: %e MISSSION: %e AXTRCRAFT: %e MOFFH: %s\a\n", 
ercid.arr, miselabl.arr, ac neme.arr, moath (math {i]J) ; 
fprint! (xpt, "Land uses compatible with the scise exposure produced by the\ 
flight \n") ; 
fprintf (rpt, “operetioas associated with the proposed actica, as epecitfied\ 
iz the Soiat\n") >; 
fpriatf (rpt, "Services Land Use Planning Manual, are as acted below under \ 
worst case\a") ; 
fpriat?(rpt,“easeumpticas. These laad use ijaterpretations are for the MFR \ 
sequent and\n’°) ; 
fprintf (rpt, “moath producing the highest noise exposure. \n") ; 


fpriat£(xrpt,*\m 0.0 miles from the MPR Genterline: \a\a"); 
rtn_velel(0)[C] © habitability (1, ldmmr[i] [0], 6(rta_velsl[0] [1}),xpt); 
fpriatf (rpt,°\a 0.35 miles frem the MIR Canterline: \a\a"); 
xta_vale2{0}(0] = habitability (2, 1domr{1}[1], &(rtm_vels2[0} [1}),xpt); 
fprintf(xpt,°\a 1.0 miles from the MFR Centerline: \a\a"); 
rtm_vals3{0}[0] = habitability (3, 1domr{i)[2], &(rta_wele3([0} [1]), pt); 
fprintft(zspt,°\a 1.5 miles fram the MFR Conterlinze: \a\n"); 
rta_vale4é[0][0] = habitability (2, ldmmr[i](3], &(rtn_vale2[0][1}),xpt); 
fpriatfi(zpt,"\n 2.0 miles from the MIR Ganterline: \a\a")> 
rtm_valeS[0] [0] = habitability (3, Idrmr(4} [4], 6(rta_wale3[0} [1]),xpt); 


fprintf(rpt, °\fDEscRrIPTion oF THCOMSEQUENTIAL MOISE Errecrs\n\n"); 
fprintf(rpt, “MFA: te MISSSICN: %e ATRCRAFT: %s MOMPE: %e\n\n", 
ereid.arr, misslabl arr, ac name.err, moath fanth[4)]); 

fpriatz(xrpt, * The following effects of noise exposure produced by the \ 
flight \n") ; 

fprintf£(rpt, “operaticas associated with the proposed actica ca people, \ 
etructures, or\a"”) ; 

Ppriatfi(rpt, “animals were determined to be iascasequeatial in the curreat \ 
eavironmental\a’) ; 

fpriatf(xpt, “asseaement :\a\a*) ; 

check (rpt , 0} ; 
} 


minor (rpt,i, which) 
FIR *rpt; 
int i, which; 
{ 
Sprint? (ept, °\SPESCRIPTION OF WOISE EFTECTS OF MOWOR TPORTANCE\n\n“) ; 
fpriatf£(xpt, "MFR: te MIssSsICoN: %e ATRCRAFT: %e MONTE: %e\n\a", 
ercid.arr, miselebl.arr, ac _neme.arr, month (math [i}]) -; 
fprintfi(rpt, ° Fae following effecte of acise exposure produced by the \ 
fligkt\n") ; 
fprintf (rpt, “operations associated with the proposed actica ca people, \ 
structures, or\n"); 
fprintf£(rpt, “animals were determined to be of minor importance in the \ 
curreat \n°); 
fprint? (rpt, “environmental asceoomant :\a\n") ; 
aheak (rpt, 1) ; 
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af (weich == 1) { 

af (anacy flag = 1) { 
bpl_ annoyance (rpt) ; 
aancoy_flag = -2; 

} 

42 (hearing flag = 1) { 
bpl_hearing (rpt) ; 
heariag fiag = -2; 

} 


if (sleep _flag = 1) { 
bpl_eleep (rpt) ; 
sleep fiag = -2; 

} 


Af (livestock flag == 1) { 
bpl_livestak (xpt) ; 
livestoak flag = -2; 

} 

if (speech flag = 1) { 
bpl_epeech (rpt) ; 
speech fiag = -2; 

} 


if (giase flag = 1) { 
bpi_giase (rpt) ; 
qgiase fiag = -2; 


fprist?’ (rcpt, "\PDESCRIPTION OF WOISE EFFECTS OF COMSIDERARLE IMPORTANCE \a\m”) ; 
fprint{ (rcpt, "MFR: te MIassto": %te AIRCRAFT: te MONTE: %ea\n\n", 
ercid.arr, aiselebl.arr, ac_neme.arr, month {mnth[i)]) ; 
fpriatf(rpt, ° The following effects of scoise exposure produced by the \ 
flight\n"); 
fpriatf (cpt, “operations asscciated with the proposed actica ca people, \ 
etructures, or\n°’); 
fpriatf(rpt, °animeals ware determined to be of considerable importance ia \ 
the curreat \n"); 
fprintf(rpt, “eavircumental assesment :\n\a") ; 
check (rpt, 2) ; 
af (which am 1) { 
if (emmcy flag == 2) { 
bpl_anacyence (xpt) ; 
amncy flag © -2; 
i¢ (hearing flag = 2) { 
bpl_hearing (rpt) ; 
hearing flag = -2; 
} 
2¢ (sleep flag = 2) { 
bpl_sleep (rpt) ; 
eleep flag = ~-2; 
} 
4£ (livestock_fleg == 2) { 
bpl_livestck (rpt) ; 
livestock flag = -2; 
) 
if (speech _flag == 2) { 
bp1_speech (rpt) ; 
epeech_flag = -2; 
} 
af (giase flag = 2) { 
bp1_glase (rpt) ; 
giese_fleg = -2; 


fprintf’ (rpt, °\fDESCRIPTION OF EFFECTS WOT CONSIDERED IN CURRED? \ 
ERVIRCOMENTAL ASSESSMEWT\ n\n") ; 
fprintf(xpt, "MFR: %eo MIsssYTou: te AIRCRAFT: %e MONTH: %e\n\n“, 
ercid.arr, misslabdl.arr, ac neme.arr, month fmath{ij]); 
fpriatf(rpt, * The following potential noise effects were not considered\ 
ia the \a°); 
fpriat{(rpt, "present analyses: \n\n"); 
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check (xpt,-1) ; 
‘fpriatf(rpt, “\n\aReascas that these potential effects were act ocasidered\ 
iacluded\n’) ; 

fpriat?(xrpt, “tasufficiest iaformatics for evaluation, iageffiaieat \ 
precision of \a“); 

fprintf(xrpt, “estimation of soise exposure, aad lack of gemerally accepted \ 
means of \n"); 

tpriatf(rpt, “prodecing quantitative estimates of magnitudes of potestial \ 
effects .\n"); 


fpriat? (rpt, “\fREFEREWCES\n\n") ; 

fpriat£ (rpt, “Buenel, R. 1978. \"Iatroducticn,\* im J. L. Fletoher asd \ 
R. @. Buenel (eds), \n°); . 

fprint? (rpt, “Effecte of Noise om Wildlife. Academica Frees, Hew York. \a\a") ; 

fpriatf (xrpt, “Cottereau, P. 1972. sSoata Boom exposure effects: effects oa\ 

aninals.\n"°) ; 
fprint? (rpt, “Journal of Sound Vibration 20 (4) 331-336 .\n\a") ; 
fpriatf (rpt, "Enviromental Protectica Agency. 1980. Guidelines for scise \ 
ot\n"); 

aa teh | Office of Air, Moise, and Radiatica, United states \ 
Mavircemental\n°) ; 

fprint¢ (rpt, “Protection Agemcy (USEPA) .\a\n") ; 

fprintf (rpt, "Eavircemental Protectica Agency. 1974. Informatica oa levels \ 
of\a"): 

Spriatf (rpt, “emvircomental noise requisite to protect public health and \ 
walfare with an\a*) ; 

fprint? (rpt, "adequete margin of safety. EPA 5350/9 74 004.\n\n"); 

fprint?(xrpt, Fletcher, J. L., aad Bussel, R. G., eds. 1978. Effecte of \ 
noise\n”}) ; 

Sprint?’ (rpt,*coa wildlife. Academica Press .\n\a"); 

fpriatf(rpt,°Mershey, R. L., amd Riggins, FT. B., eds. 1973. statistical \ 
prediction model\n*) ; 

fprintf (rpt,“*for glase breakage frem nominal sceaic booms. Federel \ 
Aviation\a"); 

fprint’ (rpt, "Administration Report FAA RD 73-79.\a\a°) ; 

fpriatt (rpt, “Zinshaw, W. R.; Bell, W. B.; Ladsoa, T. A.; Moleil, B.C. z.; \ 
aad Taylor, J.\n"); - 

fpriat? (rpt,°"P. 1970. Am anactated bibliography ca animal respoase to soaia\ 
boaums and\a“}; 

f2priatf (rpt, “other load sounds. Washingtoa, D. ¢.\n\n"); 

fpriat? (rpt, "Internsticaal Civil Aviation Organization (ICAO). 1870. sonic \ 
Bocm Effecte\n*) ; 

printf (rpt,°om the Animal Kingdom. Sonic Boom Panel, Mcatreal, 12 21 \ 
October 1970.\n\a*) ; 

fprint? (rpt, "Newnan, 7. and K. FP. Beattie. 19065. Avistion Noise Effects. \ 
FAA\n") ; 

fpriat? (xpt,*EE 65 2. Federel Aviation Administration, Noise Abatement \ 
Branch, \n”) ; 

fprint? (rcpt, "Washingtoa, D. C.\n\n"); 

print? (rpt, “Mixon, C. W.; Mille, g. K.; Seamer, H. C.; and Guild, 8. \ 
1968. \"Sonic Booms\n") ; 

fprint? (rpt, “resulting from extremely low altitude superscaia flight: \ 
measurements and\n") ; 

fprintf (rpt, “obearvations on houses, livestoak aad people.\" Aercepace \ 
Medical Research\a"} ; 

fpriat? (rpt, "Laborstories, Wright-Pattersca Air Force Base, Report MARL FR \ 
68 52.\a\n"°); 
fpriatt (rpt, “Plotkin, Kenneth J.; Sutherland, Louis C.; aad Moliac, Joba A.\a"); 
fprintf? (rpt, “1987. \"Enviromenteal woise Ascesmment for Military Aircraft \a") ; 

Sprint? (rpt, “Training Routes. Volume 2: Reccamended Moise Metria.\" \ 

Aarcepace\n”) ; 

fprinté (rpt, “Medical Research Labeoritories, Wright-Pattersoa Air Forces \ 

Base, \a"); 

fprist? (xrpt, "Report AMX,-?R-87-001.\n\n") ; 

fprintf (rpt, “Shottoa, b&b. R. 1982. \"Respoase of Wildlife and Farm Animais \ 
to Low Level\n’) ; 

fprist£ (rpt, “Military Jet overflight.\" The Reporter Iz (6) :261-164.\2"); 


fprist¢ (rpt, “\n\nlIvesroce pamaag\na\n*) ; 

fprinttf (rcpt, "The U.S. Envircomental Protection Agency (EPA) has reviewed \ 
the literature\n") ; 

fprintf (rpt,"onm noise effects in domestic animals (Dufour 1980). Im \ 
general, there is ea\n”) ; 
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fpriat? (rpt, “overall tread for damestic animals to adapt to istemittest \ 
(airereft or\a") > 
fpriatt (xpt, “aircraft-like) noise under 120 dB (decibels). Busnel (1976) \ 
reviewed\n°) ; 
fpriatt (rpt, "effects arouad large airports aad found ac evidence to \ 
jadiaste noise-\a*) ; 
Sprint? (rpt, “relsted adverse effecte.\n\n") ; 
fprintf (rpt, "Negative behavioral effects from exposure to scaic booms sre\ 
rare anceg\s"); 
fpriatf (rpt, "domestic esimals such as horses, anttle, sheep and poultry \ 
(Cottereau 1972;\n°) ; 
fpriatf (zpt, “Fletcher & Busnel 1978; Hinshaw et a1. 1970; Mima et al. \ 
4968;\n"); 
{printf (rpt, “International Civil Aviation Orgamizaticoe [ICAQ] 1970). Large\ 
fexmm saimals\n*) ; 
fprint’ (rpt, “may respoad with spormtanecus activity (i.e. galicpiag, \ 
bellowing, jumping) .\n“); 
fprint? (rpt, “Poultry show mild reacticas to the boems in most oases, but in\ 
less than teni\a*) ; 
fpriat? (rpt, “perceat of the cases chickens reacted with crowliag, coweriag, \ 
er aoise.\n");: 
fprintt (rpt, "There was reported to be ac significast effect om egg \ 
production, miik\n’) ; 
fpriatt (rpt, "productica, or food coasumptica. Pigs, both in the open and \ 
dia shalter, \a") : 
fpriatf (zpt, "show a tendeacy to be quiet (ICAQ 1970). dbeervuticas show \ 
qreater\n"); 
fpriatt (rpt, “responses reeultiag from low-level subscais flights, \ 
motorcycles, peper\n") ; 
fprint? (rpt, “blown by the wind aad cther startliag etimnli (ICAQ 1970). \ 
There appears to\n’) ; 
fpriatt (zpt,°“be no report of pesic, iajury or negative effects upon \ 
reproductive euccess\n") ; 
fpriatf (rpt, "(Fletcher 6 Busmel 1978) .\=\n°); 


) 

bpl_heariag (rpt) 
FILE *xpt; 

{ 


fpriatf (rpt, °\n\nEEARING DAMAGE RISK\a\a") ; 
fpriat? (xpt, "Rearing lose can be either temporary or permeneat. A \ 
noise~-induoed\n*) ; 
fprist? (rpt, “temporary threshold shift is a temporary loes of hearing \ 
experienced after a\a") ; 
fpriatf (rpt, “relatively short exposure to excessive noise. A noise-iaduced\ 
threehoid\n"} ; 
fprint? (rpt, "shift means that the detection level of sound has been \ 
iacreased. Recovery\n") ; 
fpriatf£(rpt,"ie fairly repid after cessation of the noise. A soise-indnaed\ 
permanent \n") ; 
fprintf (rpt, "threshold shift is an irreversible loss of heariag onused by \ 
preoloaged\s") ; 
fprint?’ (rpt, “axposure to excessive noise. This loss is essentially \ 
iadist iaguishable\n“) ; 
fpriat? (xrpt, "from the normal hearing loss associated with aging. Permanent\ 
heariag loes\a") ; 
fprint? (xpt,"ie generally asecciated with destruatica of the hair cells of \ 
the inner ear. \n’"); 
fpriat? (rpt, “Based om EPA (Envircemental Protection Agency) criteria, \ 
hearing loses is act\n"); 
fprint? (rpt, “eazpected for people living within noise contours below Dat, \ 
levels of 75 dp\n"“); 
fprintf(rpt,° (decibels). Further, as etated ia the EPA \"Levels Document, \"\ 
changes in\n“) ; 
fprint? (rpt, "heariag levels of <5 dB are generally act considered acticseablie\ 
or\a*); 
fprint£ (rpt, “esigatficant (EPA 1974) .\n\n"); 


} 


bp1_speech (rpt) 
FILE tpt; 
{ 


fpriat?f (rpt, “\a\nsPEECE TWPERTERENCE\ n\n") ; 

fprint? (rpt, “Speech interference associated with aircraft noise is a \ 
primary scurce of\n"); 

fprintf (xrpt, “annoyance to individuals om the ground. ‘The Gisruptica of \ 
leigure\a"}; 

fprintf (rpt, "activities (euch as listentag to the radic, televisica, musica, \ 
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end\a") ; 

fpriatt (rpt, “comvareation) gives rise to frustretice aad irritation. \ 
GQuality epeeah\n°) ; 

fpriatf (xrpt, “ocumuniastioa is cbvicusly also important ta the Glassreca, \ 
office, and\n"); 

fpristt (rpt, “industrial settiags. Researchers heve found that aircreft \ 
aoise of 75 aB\n"); 

fpriatf (xpt,” (decibels) anacyed the highest percentage of the populatica \ 
whee it\a"); 

fpriat£ (rpt, “interfered with the television sound. Righty percest ef the \ 
list of\n"); 

fprist? (rpt, “annoyances for the surveyed populatica was flickering of the \ 
television\n") ; 

fprist? (rpt, “picture aad iaterfereace with casual conversation by aircrest \ 
soise (Rewnana\n") ; 

fpriat£ (xpt,°6 Beattie 1985) .\n\n"); 


} 


bpi_anacyance (rpt) 
FIRE *rpt; 
{ 


fprist? (xpt, “\a\neURAN AMOYTANCE\a\n°) ; 
Sprint? (rpt, “Noise anncyance is defined by the U.S. Eavircemeatal \ 
Protectica Agency (ZPA) \n") ; 
fprintf£ (rpt,“as any negative subjective reaction to acise ca the pert of an\ 
inadividsal or\n°) ; 
fpriat? (rpt, "group (EPA 1978). \"Except in the case of speech interference, \ 
however, the\n"); 
fprintf (rpt, “degree of interference is hard to speaify sad difficult to \ 
Felate to the\n‘); 
fprint? (rpt, “level of noise exposure\" (EPA 1978). \"Airaraft noise may \ 
. be found\a") ; 
fprintf® (rpt, “amnoying because it may etartle pecple, cause houses to shake, \ 
CF elicatt\n’) ; 
fpriat? (rpt,“fear of a crash\* (EPA 1978) .\n\n°) ; 


} 


bpl_glase (xpt) 
FILA ‘trpt; 
{ 


fprintt (rpt, “\n\nsTRUCTURAL DAMAGE\n\n") ; 

fprint?£ (xrpt, "By far, the largest percemtage of scaic boos damage claims \ 
wtem from broken\a”") ; 

fpriatf (rpt,°or cracked glass. All of the tests conducted im the United \ 
States have\n”) ; 

fpriatt (rpt, “comfixrmed that glass damage is the most prevalent damage caused\ 
by scoaic\n") ; 

fprintf (rpt, "booms (Hershey 6 Biggias 1973). Secause the atcroetructure of\ 
giase is\n"); 

fprint?(rpt,“ameorphous rether than crystalline, the practical desiga \ 
etrength of glase\n") ; 

fprintf (rpt, "ie dependent ca the surface scratch condition. Glass that has\ 
been\a”") ; 

fprint? (rpt, “sandblasted, ecretched, or aicked will act exhibit the same \ 
strength as\n") ; 

fprint{ (rpt,"a properly installed relatively new pase of glass .\a\a"); 


} 

bp1_sleep (rpt) 
rum *rpt; 

{ 


fpriatf (rpt, <\a\oSLEE? OFTERFERENCE\n\n") ; 

fprint? (rpt, “Sleep interference is ome of the factors aoatribatiag to \ 
aircraft soise\n”) ; 

fprint’ (xrpt, “anmcyance. Airport nighttime restrictions have been employed \ 
te mininise\a") ; 

Sprint? (xpt, “this anncymace. Im the anse of nighttime coperaticas, an \ 
exterior maxrimun\n’) ; 

fprintf (rpt, "sound level (Alm) of 72 dB (decibels) is identified as en \ 
acceptable sleep\n") ; 

fprint? (rpt, “interference ceaditica for a windows-closed scaditicna. This \ 
corresponds to\n") ; 

fpriaté (rpt,°an interior Alm of about 55 43 .\n\n"); 

fprint? (rpt, "To provide a basis for estimation of the number of people who \ 
eould be\n") ; 

fpriatt (rpt, “awakened by a specific noise event, dats developed by \ 
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Goldetein and Lakas\n") > 
fpriatf (rpt,° (1980) were used to develop a relaticaship between the ERI \ 
value and the\n"); 
fpriatf (rpt, “percemt of exposed perscas who would be awakened by the noise \ 
event. These\n”) ; 
fpriatf (rpt, “data indicated that the percent awakened by « specific \ 
dmterior: noise lLevel\a‘} ; 
fprintf (zpt,°can be expressed by the following equation: \a\n") ; 
fpriat? (rpt, © Percent Aweakemed = 1.1(ASEL) - 49.5,\n"); 
fprint? (rpt, “where ASEL = the interior A-waighted sound exposure level.\a\n"); 
fpriat? (rpt, “Since acise mast penetrate the home to disturb sleep, izterior\ 
poise levele\n”") ; 
fpriatf (rpt, “will be lower thas outside levale due to the absorptica of \ 
sound enargy\s") ; 
fpriat? (spt, “attenuation by the structure. The spount of attenuation \ 
provided by the\n") ; 
fpriat? (rpt, “building is dependeat ca the type of construction aad whether \ 
wiadows are\n") ; 
fpriat? (cpt, “opem or closed. The Envircemeatal Protectica Agency reccmmende\ 
attenustica\a’) ; 
fprintf (rpt, “factors of 17 dB (decibels) for summertime (windows open) \ 
resideatial\n") ; 
fpriatf (xpt, “conditions and 27 4B for wintertime (windows alosed) \ 
conditicas.\n") ; 
fprint? (rpt, "Incorporating the attenuatica factors into the above equation \ 
gives the\n”); 
fprint?£ (rpt, “following relaticaships for the percent awakened under \ 
owmertime and\n") : 
fpriatf (rpt, “wintertime coaditicas:\n\n") ; 


fpriat?f (rcpt, ° Percent Awakened (summer) © 1.1(ASEL - 17) - 69.5\n"); 
fpriatf (rpt, ° = 1.1(ASEL) - 60.2\m\n"); 
fpriatf (rpt,° Percest Awakened (wiater) = 1.1(ASEL - 27) - 49.5\n"); 
fprint£ (xpt, ° = 1.2(ASEL) - 79.2\m\a°); 


fpriat{(rpt,"\n 0.6 miles from the MER Ceaterline: \{n\a*); 
4¢ (xtu_velei(1][1} == which) { 
fpriatf(rpt, °Prevnience of Amacyance Macag Populatica\n’) ; 
annoy fiag = which; 
) 
af (rtm_velel[2}{1] == which) { 
fprintf(rpt, “Hearing Demage Risk to Residential Population\s") ; 
hearing flag = which; 
} 
4¢ (xtn_valel(3)[1] == which) { 
fpriatf(xpt, “Sleep Interference of Residential Population\n’) ; 
sleep flag = which; 
} 
4f (xrtn_vwelel[5][1} == which) { 
fpriatf(rpt, “Reproductive Success or Populstica Size of an Eadangered \ 
Species\s") ; 
species flag = which; 
) 
42 (xtn_welel[6}[1] == which) { 
fprintf(rpt, “Eoonomic Demage to Livestoak\a") ; 
livestock flag = which; 
} 
4¢ (xrtn_vailel [7] [1] == which) { 
fprint?(rpt, “Speech Interference of Resideatial Populatica\a®) ; 
wpeach flag = which; 
} 
if (xtn_weiel[8}[1} = which) {( 
fpriatf(xrpt, “Glaes Breakage Claims Amoag Residential Populatica\a’) ; 
giase fiag = which; 
} 
4¢ (xrtm_veiesi[S][1] == which) { 
fprintf(rpt, "Effects Camparison Module\n*) ; 
ccmpere flag = which; 
} 
if (annoy flag t= which 6& heariag flag |= which && Sleep flag t= which 66 
livestock flag t= which 6& speech flag i= which 66 glase_ flag t= which 66 
compare _fiag i= which £6 species flag f= which) 
fprintf (rpt, “There were no effects of noise in this category at this \ 
distance\s") ; 


fpriat? (rpt, "\n 0.3 miles from the MFR Centerline: \a\n") ; 
af (rta_wale2(1}[1] = which) { 
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Sprint? (rpt, “Prevalence of Anncyance Amcag Population\a‘) ; 
aancy flag = which; 

) 

af (rta_vwels2[2][1] == which) { 
fpriatf{(xpt, “Nearing Demage Risk to Residential Yopulatica\n") ; 
heeriag fiag = which; 


4f (rtm_wele2[3](1] == which) { 
fprintf (rpt, “Sleep Interference of Residential Populatioa\n”); 
Sleep flag = which; 


) 

af (xta_wals2?[S][1} «= which) { 
fpriatf{(rpt, “Reproductive Success cr Populatice Size of an Madesgered \ 

Species\n") > 

species fiag = which; 

) 

4¢ (xrtn_wals2[(6]{1] == which) { 
fprintf(rpt, “Eocoacmic Damage to Livestock\a’) ; 
livestock flag = which; 

} 

if (rtn_wale2[7][1] == which) { 
fprintf (rcpt, “Speech Interfereace of Residential Populstion\n”) ; 
@peech flag = which; 

) 

if (xtn_wals2 [6] [2} == which) { 
fprintf(rpt, "Glase Breakage Claims Amcag Residential Populatica\n") ; 
giass flag = which; 

) 

4¢ (xrta_vwale2(9)[1] == which) { 
fprint£ (rpt, “Effects Comparison Module\a") ; 
compere fiag = which; 

) 

2¢ (amaocy flag i= which 66 hearing flag {= which && sleep _fiag tw which 6% 
livestock flag i= which &6 speech flag t= which 66 glase flag != which 66 
compere flag t= which £6 species flag t= which) 
fpriatf (xpt, "There were no effects of acise is this category at this \ 

distance\n") ; 


fpriatf£(xpt,"\a 1.0 miles from the MPR Centerline: \a\a"): 

2¢ (xta_vais3{1)[1] == which) { 
fprintf(rpt, “Prevalence of Annoyance Among Populatica\a") ; 
aancy flag «= which; 

} 

ag (zta_vels3[2} [1] == which) { 
fprint? (rpt, "Bearing Damage Risk to Resideatieal Populatioa\n”) ; 
heariag flag = which; 

) 

4¢ (rtn_vaile3 [3] [1] == which) { 
Sprint’ (rpt, “Sleep Ynterfereace of Residential Population\a") ; 
@leep flag = which; 

} 

if (rta_vele3[5] [1] =» which) { 
fprintf (rpt, "Reproductive Success or Population Size of an Eadasgered \ 

Species\a’) ; 

species flag = which; 

} 


42 (xtn_wels3[6}[1] == which) { 
fprintf(rpt, "Econcamic Demage to Livestock\a") ; 
livestock flag = which: 
} 
4¢ (xtm_vale3[7} [1] == which) { 
fprintf(xpt, "Speech Taterference of Rasidential Populatice\a") ; 
#peech flag = which; 
} 
Af (xta_wels3(6][1] == which) { 
fprintf(rpt, “Glass Sreakage Clains among Residential Populatica\n’) ; 
giass flag = which; 
} 
4€ (rts _vale3{9} [1] == which) { 
fprint£(xrpt, "Bffects Comparison Module\n") ; 
ocmpere_flag = which; 


} 

if (annoy flag t= which 66 hearing flag te which 66 sleep flag tw which 66 
livestoak flag i= which && speech flag t= which &6& giase flag te which &6 
compare flag i= which 6&6 species flag t= which) 


fprint? (rpt, "There ware ao effects of noise in this aategory st this \ 
distance\n°") ; 


fprintfirpt,"\n 1.5 miles from the MFR Centerline: \n\a"); 
4¢ (rt= waleé[1] [1] om which) { 


fprint£(rpt, “Prevalence of Annoyance among Populatica\n") > 
aanocy flag = which; 
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) 

af (rta_valed[2][2} == which) ( 
fpriatt (xpt, “Nearing Demage Risk to Residential Populatica\a") ; 
heariag flag = which; 


4¢ (rtm_weleé[3][1] == which) { 
fprint?(zpt, "Sleep Interference of Residential Popelatica\n”) ; s 
sleep flag « which; 

) 


4¢ (ztm_waled[S][1] == which) { 
fpriatf (rcpt, “Reproductive Success or Population Sise of an Radeagered \ * 
Speaies\n") ; 
especies flag = which; 


4¢ (xrtm_vealeé[6] [1] == which) { 
fpriat?£(rpt, °Eoceania Damage to Livestoak\a") ; 
livestoak flag = which; 

} 

4¢ (rtm _vweleé[7][1] == which) { 
fpriatf’(rpt, “Speech Interferease of Residestial Populatica\n*) ; 
speech flag = which; 

} 

af (rta_vwaleé[8}][1] == which) { 
fpriatf(rpt, °Glase Breakage Claims Mmoag Residential Populaticoa\a") ; 
giase_flag = which; 

} 

if (rta_wels4[9)[1] == which) { 
fprintf (rpt, °"Rffects Ccmperisca Modulie\n*) ; 
ccmpare flag © which; 

) 


if (ammoy flag it~ which 66 hearing flag t= which 66 sleep flag t= which £6 
livestoak flag {= which 66 speech flag t~ which £4 glase flag t= which £6 
ocmpere flag te which £6 species flag i= which) 
fpriat£ (rpt, “There ware no effects of noise ia this category et this \ 
dietance\a") ; 


fpriatf(xrpt,"\_ 2.0 miles from the MPR Centerline: \a\a"); 

4¢ (xrtm_weleS[1J)[1] ==» wmich) ( 
fpriatf (rcpt, "Prevalence of Annoyance Mmcag Populatica\n"} ; 
aancy fiag = which; 

} 

af (xtm_waleS[2] [1] == which) { 
fpriatf(xrpt, “Bearing Demage Risk to Residemtial Populatice\n”) ; 
bearing flag = which; 

} 

af (xtm_valeS{3}] [1] = which) { 
fpriatf(rpt, “Sleep Interference of Resideatial Populatioca\a’) ; 
sleep fiag = which; 

} 

4¢ (xta_weleS{5] [1] = which) { 
fpriatt (rpt, “Reproductive Success or Population Size of an Endangered \ 

Species\n") ; 
epecies flag = which; 

} 

i¢ (rtm_valeS[6}[1] = which) ( 
fprint? (xpt, “Eooncmic Damage to Livestoak\n") ; 
livestock flag = which; 

} 

af (rtm_valeS[7}(1] == which) { 
fprint{(xpt, “Speech Interference of Residential Populatica\s*) ; 
speech flag = which; 

} 

Af (rta_vale5[8][1} == which) { s 
fpriat?(rpt, “Glaese Breakage Clains among Residential Populatica\n") ; 

giase flag = which; 

} 

4¢ (rta_walsS[(9](1] == which) { 
tprintf (rpt, "Effects Comparison Modele\a*) ; 
ccmpare fiag ~ which; 

} 

42 (anacy flag t= which ££ hearing flag != which £6 sleep flag tw which ££ 
livestoak flag te which 66 speech fleg {= which £6 glass fiag t= which £6 
compere flag f= which é¢ especies flag t= which) 
fprint? (xpt, “There were mo affects of noise ia this category at this \ 

distance\a") ; 


} 


peiaiaiaialalaleisisichcieheiahelabsisinhsialeaeaaisieinialaeiauiisnitnaaiat yy 


/* s/ 

/® rptasan.po ~- ASAN Main Program (Temporary driver for the a/ 

/* report generator 2/ 

i* a/ 
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/tanenannaanan REKEKAAKEAAERALERAKARRARARGRHERRAREKERRERERAEERAREER aarterennane/ 


#iaclude <stdio.h> /* The usual stuff, of course */ 
#iaclude <procese .h> /* Seader for calls to Ms-Dos */ 
#include <string.h> /* String masipulaticon header */ 


@inoclude <time.h> 
Exec O01. BEGIN POCLARE SECTION: 


EXEC SOL, INCLUDE hostvars .h; 
RESC SOL DKLODE Snharris.h; 


EXEC SQL ED PECLARE SecTICH:; 


EXEC SOL. UNCLODE SOLCA; /* SQ Gemmunicaticn Area a/ 
define SOLCA_ STORAGE CLASS 
@include “asan.h° /* S@tanderd ASAN Header file */ 


/* me aeen.pe it must be here */ 
/* since we need to initialize */ 
/* character arrays! a/ 


dat i, 3, myCname({); 

etetic char *legal_ sctice[11] = 

(*\a\a\a\n\t\t\tRresTRIcrzen rrarrs LEGEND \n\n", 

"\tUse, duplication, or disclosure is subject to restricticas\a", 
"\t as set forth in subdivision (b) (3) (14) of the\n", 

"\t Rights in Technical deta and Computer Software Clsause\n”, 
“\e\te ‘et 52.227-7013 of the DOD FAR Supp lement..\a\n“, 
“\t\t\CREeT LABORATORIES DFCORPORATED\n", 

P\e\e\e 10 MOULTON SYREET\n“, 

“\e\e\te Cambridge, MA 02238\n", 

"\el\e\e €27-873-2000\n\a\s°, 

. Veer Interface Copyright (C) 1985, Ba Laboratories Iacorporated\n’, 
"\e\e\t All Rights Reserved"}; 


extern char *melica() ; 
woid ezpdmeg({); 


FILRZ *fopen () ; 


4€ (erga == 1) { 
priat? (“\nUeage: RPPTASAN ascosement_neme printfile nese") ; 
print?("\n The printfile name 19 opticeal: "); 
print? ("if unspecified printer [prn] is aseumed.\n\a") ; 
exit (16); 


) 
print? (°%0 [25*, 27) ; 
for (2 = 0; 4 < 22; 444) print? ("%e", legal sotice[i}) ; 


print? (“\a\a\n\a\a\t Please tap the space ber to comtinue, \"CPRE-c\" \ 
to abort.\a\n’) ; 


etroat (workspece.arr, univpwd) ; 
workspase.len = strlea (workspace .arr) ; 


EXEC S61. COMNECT ;werkspece ; 
if (aqloa.sqlccde) { =pcessa: 
print? ("\nlogea failed\ats”, sqica.sqlerm.sqlerme); exit (4) ;} 


ExBC SQL SELECT myid, myprivs, ny Rae 

FRM sys . véazpuser 

INTO :userno, :0 auth, ‘myname; 
my_neme.arr(my neme.leaj] = ‘\0’; 


etrapy (ASSESSMENT name, my name.arr) ; /* Store results in globel */ 
ASSESSMENT .id = usernc: /* ASSESMeEN? structure a/ 
EXEC SQL SELECT descriptica rrom table _of _coatents DFTO : workspace 


if (eqlea.eqlacde) { 
Print? (*\nLogoa: te", #qlica.eqierm.sqlerrasc) ; } 
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alse { 
3 = (eizect ASSESMEEWT desc) ~1; 

if (workspece.les >= 4) { 
for(i = 0; 1 < 4; 44+) ASSESmanWT.deec{i] = workspece.arr[t}; 
ASSRSMENM .deeal3}] = °\0’; } 

else stropy (ASSESM@EENT desc, workspace.arr) ; 

} 


if (erge > 2) 
stropy (targv, argv[2)) ; 


Winit (); 
priatt (*to(24;18", 27); 


exit (2); 


B.1 C Language Source Code 


/* ASAM Bffectes Modules 
/* 
/* Created: January 8, 1987 


/* The retura or success codes returned by the procedures ia this 
/* module bave the following meanings: 


/* “2 = execution is nct possible because the module is 
/* act implemeated yet 

/* ~2 = execution is not possible because the available 
/* faput is incomplete or improper 

/* 0 = the precision of the estimate is satisfactory 
/* 1 = the module executed, but the precision of the 
/* estinate is unsatisfactory . 


/* The severity of effect codes returned by the procedures ia this 


/* module have the following meanings: 

/® “1 = effect not considered in the current analysis 

/* O = magnitude of predicted effect is incoasequential 

/* i = magnitude of predicted effect is of minor importance 
/* 2 = magnitude of predicted effect ita of considerable 

/* importance 


#aclude "stdic.h" 


iut table[20][3] = {0, 0, 0, 30, 25, 0, 0, 38, 30, 28, 0, 0, 38, 20, 
25, 0, 0, 0, 30, 253, 40, 383, 30, 25, 1, 6, 0, 30, 
25, 1, 0, 0, 0, 30, 28, ©, 0, 30, 25, 1, 0, 0, 0, 


«/ 
*/ 
“/ 


*/ 
*/ 
s/ 
wf 
«/ 
*/ 
*/ 
/ 
*/ 


“/ 
“7 
e/ 
*/ 
af 
/ 
*/ 


©, 0, 0, 0, 30, 28, 1, 38, 30, 1, 1, 1, 0, 35, 30, 


25, i, 0, Oo, o, i, i, Qo, o, o, i, i, 3, Oo, o, i, 
1, 0, 30, 25, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 
0, 0, O, 2, 2, 2, 4, 2, 2, I}; 


char tablaz[20][$0] = { “amily housing", “Bachelor housing”, 
“fransient lodging - hotels, motels’, 
*Classrocoms, libraries, churches", 
“Offices and administration buildings, military”, 
“Offices - business aad professional’, 
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"“Soepitals, medical facilities, nursing homes", 
"Peateal clinics, medical dispensaries“, 

"Outdoor musia shealis", 

“Retail etores, restaurants, benks, movie theaters", 
“Fiight line cperatiocas, maintemance and treiniag", 
“Industrial, manufacturing and laboritorias”, 
"Outdoor sports arenas, outdoor spectetor sports", 
“Playgrounds, active eport recreaticaal areas”, 
"Neighborhood parks”, "Gymnasiums, indoor pools", 
“Outdoor - frequent speech ccumunicatica", 

"Outdoor - unfrequent speech ccmmunatoution®, 
“Livestock farming, saimal breediag’, 

“agricultural (except livestock)" }; 


hebitabiiity (which, ldm, effectoode, rpt) 


double ida: 
aut ®effectacde, which; 
p ped | *gpt ; 


/* The above tables and below lock-up computaticas were derived fron 
the Joint Services Boise Plannisg Manual as referenced in Fable 6.3 
of Thecdore J. Schults’s book, Community Boise Rating, Seccad Bditica 
(2902). e/ 


{ 
int a4, index; 
char neme [18]; 


4€ (idm > 65 66 lan <= 69) { 
iadez @ 4: 
®effectacde w= 1; 

} : 

@lee if (ida <= 74) { 
iadex w 3: 
*effeatccods = 2; 

} 

@lee if (idm <= 79) { 
index = 2; 
teffeatoodea = 2; 

} 

else if (idm <w 64) { 
iadex @ i> 
®effectcoda @ 2; 

} 

@lse if (idm <mes) { 
index = 0; 
®effectacde = 2; 

} 


if (lida < 65) 
fprintf(rpt, “ The following ere compatible land uses: \a"); 
for (4 = 0; 4 < 20; 444) 
fprintf (xrpt, ° es \a", table? [i]); 
*effectacde = 0; 
} 
@lse if (idm > 69) { 
fpriatf (rpt, ° The following sre inccmpatible land uses: \a"); 
for (i 0; 4 < 20; 444) 
fpriats (xpt, ° te \n", tablez [i}); 
®*effectccde = 2: 
} 
alse { 
fprintf(rpt, " The following are compatible land uses: \a"); 
fer (4= 0; 4 < 20; 44+) i 
Af (table{1] [index] == 1) 
fprints (rpt, ° te \a*, table? [1}) ; 
fprint¢ (rpt, 
"“\a ‘The following land uses are compatible with iaterior soiese\n*) ; 
fprint£(rpt," reduction noted ia perestheses :\n°) ; 
for (4 = 0; 4 < 20; 444) 
A¢ (table[i} (index) I= 1 6&6 teble([4) (index) t= 0) 
fprint? (rpt, ° te(td) \n*,table2 [4] ,table[4) [index}); 
fprintf{(rpt, “\n ‘The following are incompatible land uses: \a"); 
for (2 = 0; 4 < 20; 444) 
Af (table[4] [index] == 0) 
fprint? (xpt, ° te \a*,table2[4]) ; 
} 
retura (0) ; 
) 
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/* ‘The below calculatica of percent of the population that will be highly 
annoyed by a sound of level Ldn was copied from Theodore J. Sahults’s 


article, "#yathesis of social surveys on noise anacyence", published in 
the Jouranl of the Accustical Society of Amarioa, Vol.64, No. 2, Asgust 


1978, pp 377-408. 


doable perkha, pow({); 


af (idm < 48 |[ idm > 85) { 
teffectacde = -1i; 
retura (-1) ; 
} 
alse { 
perks = 0.9553 * idm - 0.0401 * pow(ida,2.) + 0.00067 * pow(ldn,3.); 
42 (perha < 5) 
fteffectocede = 0; 
else if (perks <= 10) 
®effectsods @ i; 
alse if (perkha <= 20) 
fteffectocda = 2; 
alse 
fteffectcode = 2; 
retura (0) ; 


hearisag damage (alevel, effectocda) 
double alevel; 


’ 


iut *effecat acdea; 


/* The calculation of ea was derived frem William Burns’ book, Noise 
and Man, Second Edition (1973), page 238. The 4B loss values were 
read fram the 50% curwe ca the bottcm graph om page 239 of the same 
book a f 


int es, temp; /* en = A-weighted noise immissica leval a/ 


en @ (int) alewal + 10; /* 10 is derived from 10*log (duration of scund 
expoeure in years) which is assumed to be 5 


yeare here a/ 
temp = en 48 5; 
/* sound to the nearest 5 dBe a/ 
41f (temp <= 2.5) 
ea —~= temp; 
olee 


*/ 


/* em of 65 -> 50% of the population would experience a 1.2dB hearing lose */ 


/* 90 -> 2.343 loss, 93 -> 4.5dB loee, 100 -> 8.743 lose 
/* 105 -> 14.148 lowes, 110 -> 22.348 loss, 115 -> 31.243 loss 
/* 220 -> 40.008 lees, 125 -> 43.14B loss, 130 -> 43.148 lose 


22 (em <= 985) 
Saffectacda « 0; 
else if (es <= 110} 
*effectoodea = i; 
else 
*teffectcode = 2; 
return (0) ; 


Sleep interfereace (slevel, effectoode, +) 
double alevel; 
int *effectocda, i; 


{ 
double per awakened; 


af (4 > 4 66 4 < 10) /* smedeR */ 
per _eawekened = 1.1 * alevel - 68.2; 

else /* WOFTER *«/ 
per _ awakened = 1.1 * alevel - 79.2: 


if (per_awekened <= 5.0) 
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a/ 
al 
*/ 


®affectacde w 0; 

elee if (per_awekened <= 106.0) 
ftaffectacde = 1; 

alee 
*effectcooda @ 2; 

return (0) ; 


livestock _damg (effect code) 
iat ‘*effectoode; 


Speech _iaterferenase (effectocde) 
iat *effectacde; 


teffeatacde = -1; 
return (-2); : : 


giase breakage (effectcode) 
iat *effectacde; 


{ 
*effectoode = <1; 
retura (-2) ; 


effects_ocmparison (effeatacdea) 
ist *teffectoode; 


{ 
*taffect.code = -1; 
retura (~2); 
} 
[/RERARARERADEARAAAAAREREDAARERTAREDHORENERERRERERDENARRARRRORRRRORERODRED 
e ® 
* cu.c -- ASAW GRASS color utilities. ® 
* * 
e TEIS CODE ASSUMES 256-COLOR LUT AND 2 OVERLAY PLAWES. @ 
ry ® 


dbedebeheltetadeid tid it ti iiitiiitiLtifiiitirTir tT Tt) RAKRGER eeaanaaranerannananeonnen/ 


@Anclude "grass .h° 
@imclude “gglobs.h" 


iait colors () 
{ ihe 
/* 97 ( C CURSOR , 255 , 288 , 285) «/ 
Taitcr( ¢ BEG r 9, O, OO); 


Tnitcr ( C_ SCR FRAME, 255 , 255 , 288 ): 


255 


Taitcl( C WIN FRAME, 255 , 255 , 255 ); 
Taitcr( C LEG FRAME, 255 , 255 , 285 ); 
Taitcr( C LEG TERT , 285 , 255 , 255 ); 


Imitcr({ CBEACE 38», 2, +1, «2); 
Taitcr({ ¢_RED , 235, OO, ©}; 
Imitcr( Capmmwm 0, «600, 2858, «00 ); 
Taitczr( C BLUR 1, ©, OO, 288); 
Imitcr( C YELLOW «6, 255, 285, 0); 
taitcr( C MAGENTA , 255, 0, 2858); 
Teatczr( C Cram 1 0, 2853, 258); 
Teitcr( ¢_WEIes , 255 , 255 , 255); 


/* for TRA elevaticas, use a emocth paistte at low intensity */ 
ig palet ( cist rea , WOM IMAC , 0.25 , 0.50); 
/* for categories, wee a repeating smooth pelette at high intensity */ 
for ( 3 = C_1"2 CRE ; J < MAI_C - C_CAT REPEAT +1; 3 += C_CAT REPEAT ) 
ig palet( 4, C_ CAP REPEAT , 0.50 , 0.80 ); 
af ($< marc) 
ig_pelet( 3, MAXC - 441, 0.80 , 0.80); 


next_cat pv = C_1sF CAP; /* Initialize pixval to use for category */ 


ig pelet ( fpw , nclrs , i, @ ) /* load amocth palette in Imagraph 107 */ 


int. fpv: /* fixet LOT locatica to load */ 
iat anoles; /* how many LUFT loaaticas to load */ 
Geruble i, a;.- /* intensity, saturation */ 


double hias, h, rt, g, b; 


af ( ( fpv~ <0) Tt ( sellers <1 ) Il ¢ 2pv + acirs - 1 > MAE) ) 


SLOUTP (“tig pelet: bad perwmeter”) ; 
retura( -1 ); 
} 


hina = 360.0 / (double) nalrs; 
ka = 0; 


for ( pv = fpw ; pw < fpv + males ; ptt ) 
{ 
Bisrg>( a, i, , GF, Og, Eb); 
Taitcr( pv, dround(r * 255.0), dround(g * 285.0), dround(b * 255.0) ); 
A +2 hinc; 


/* 
* hisrgh() ~- coaverts (h,1,8) color to (f,g,b) inteasitias 
a 

* eoall: hisrg>(h, i, , 6, 6g, Eb); 

e 

* ocalliag args (normalized before use) : 

e 6.0 <m h <=360.6 (red = 120.0, green = 240.0, blue = 0.0) 
*# 0.0 <= 1 <= 1.0 0.0 <a oe 1.0 

* returned args: 

s 90.0 <= = <= 1.0 0.0 <= g < 1.0 0.0 <= b <= 1.6 
a7 


Bisrg (&,1,8,28,g9,b) 
double hk, i, #, *r, %g, *b; 
{ 

double m=, nz; 


while { h < 0.0 ) h += 360.0 
while (bh > 360.0) h -= 360.0; 
while (4< 0.0) a += 1.0; 
while (i> 1.0 ) i -- 1.0; 
while ( #< 0.0) e+ 1.0; 
while (@ >1.0 ) o-—= 1.0; 
a2 (2>085) mmita-(4%8); 
alse meie( 1.0426); 
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mae (2.04) -m; 

ag { &< 60.0 } *rem2 + (m-m2) * (h / 60.0); 

@lee if (bh < 180.0) *: = mw; 

else if (bh < 240.0) tr wm m2 + (m- me) * ( ( 240.0-8) / 60.0); 
else tr w= m2; 

ag ( B< 120.0 ) tg = m2; 

elee if (h< 180.0) tg emt + (m- m2) * ( (bh - 120.0) / 60.0); 
else if (hk < 300.0 ) tg = a; 

else “game + (m- m2) * ( ( 360.0 -b) / 60.0); 
ag (&< 60.0) Moan; 

else af ( bh < 120.0) thom? + (m-m2t) * ( ( 120.0-) / 60.0); 
else if ( h < 240.0) > = m2; 

else if ( B< 300.0) * amt + (m- m2) * ( (BR - 240.0) / 60.0); 
else ib = wm: /* questionable */ 


/* end of aa.a */ 
[ARRRARARRAENAAEDAERHARRERREDAREEERORDERAERARERAAARNRRERRERERRERREROREKOS 


a ® 
® daean.c -- dummy asan meinline to test map screen features e 
& & 


SORKAREDRERAARHARERARERRRALRARERE RRAAARARRKRARBARSAARKHERAEKRHARRRAA asenecen / 
@define D8 (str) 


/* 
@ seeds datum for whare’s my fiager ca map. 
* 
* ehow. coordinates of specified loostica ca map. 
«/ 
#include <stdio.h> 
#include “asantype.a" 
#Aaclude “asan.h* 
/* DEFINED IN GRAPEICS CODE TO RE SUPPLIED BY Fat: a/ 


double shwdist: 
externa char dlaem [J [12]; 


/* ASSUMED FO BE DEFINED ELSEWEERE Of ASAN USER CODE: a/ 


Ghar idptofint [6]; 
iat shwereaLDm: 
4ut shwareairei: 
int shwarea?srT: 
fat shwareePsFri;: 


eztern int EMA DEBUG FEATURES; /* for debug */ 


G@iait (); /* amitialize grephice */ 
DB( etrapy ( @inem[0} , “Piretiaap” }; ) 


DS( stropy( dlnam[7] , “Justamep" ); ) 
DB( stropy( dinmm[ié] , “Last _Map* ); ) 


EMA _DEBOG FEATURES = 1; /* enable U debuggiag feetures */ 
init (); /* disappear iato U */ 
} 
@umy () 
{ 
SLOUTE (°*08 duside dummy() tee); 
} 
lat2dea ( eat ) 
iat ent; 
{ 


SLOUTP ("##* ingide lat2dea() sea"); 
} 


257 


iea2dea ({ ent ) 
int emt; 


{ 
SLOUTE ("@8® juside loa2dea() *#8*); 


we 
3 


SLOUTP ("t88 3ngide ASANocum({) 28°) ; 
} 


/* end ef dasan.a */ 
[AARRAARARERERRARERAAERARAARRERARRERARREREARADEREHAEERERAREREREOREEREERES 


ry a 
* da.a -- AZAN GRASS call file handiers. ® 
* : ® 


RAARLRERARAERERERAAEREEERERAARREARARRERRAANAERERAERREARARAAAR Seeeananene af] 


Gdefine FUFRASTOK © /* = 1 4¢ okay to we PutRast */ 
fdefise DB (str) 


finaalude “grase.h" 
@inelude “gglobs.h° 


#inolude <fastl. b> 
#inciude <sye\types .h> 
finclude <sys\stat .b> 
@include <ic.h> 


eaxtera char TMA_elev beiag drawn; 
static ahar fue [80]; 
etatic int fh; 
etatia int abytes ; 
etatio iat scrrow; 
static char rbuf MAXCOLS] ; i 
etaetic char what [MAZXOOLS] ; 
d@ cell () 

{ 

int rr, @; 


iat oa, dew; /* drewing-method-test caly */ 
eet _display_perams () ; /* eat wp window & viewport */ 


eprintf( fnem, *%s\\%e\\te\\cell\\te°, 
gisdbase, mapeet, location, layer2add) ; 


if ( ( Th = cpen( fnem , O_RDOMLY | © BINARY ) ) m= -1 ) 
{ 
SLOUTP ( °?d cell: cpem ts failed" , fnem ); 
return({ ~1 j); 
} 


ecarrow = 0; 


@ 4f surTRagTor 
/* color is wired im call file */ 
@ alse 
/* major kludge alert */ 
# endif /* rormasToE */ 


alip to window() ; 


for (r@20; © < Warows ; r++ ) 


{ 
i¢ ( ( abytes = read( fh , rbuf , Wools ) ) i= Wnocols ) 


DCERR( “te out of data at row td" , fnem , x); 
return( -1 ); 
} 


af POTRASTOE 


if ( DMA _elew being drawn ) /* fiddle with solers */ 
for (coo = 0 ; os < Wnools ; cot+t ) 
af ( rbuf[cc] f= 0 ) 
rhuf[ca] = ( (amt) ( ( (double) rbef[aa] / 17. ) + 2. } ): 
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petRast( Wl, Wt - scrrow , W1+ Wacols , rbuf ); 
 ] eles 


for (oa = 0; oo < Wacols ; aatt ) 
2f ( xbuf[ea]) t= 0 ) 
{ 
if ( Path_elev being drawn ) /* fiddle with celors */ 


Setra( (iat) ( ( (double) ebhaf[oa] / 17.) +1.) ); 
Setra( zbaf[ac] }; 
alise( W1+oc6c , Wt - sarrow , 
Wi¢+ea+i1, Wt - serrow +1, 0x40); 
} 
# endif /* POTRASTOR */ 


serrow++;: 
} 


@ ifdef powr_cans 
i€ ( ( abytes = read( fh , rbuf , Wacols ) ) > 0) 


PCERR ( “Se bas data left over (td bytes)" , faam , abytes ); 
retura( -1 ); 


} 
@ endic /* DOF CARE */ 


Gloee( fh ): 
clip to sereen () ; 
wetura( 0 ); 

) 


sereen2cell () 


{ 
SLOUTP( “screen2zcell() is not yet available" }; 


alip to screen (); 


/* end of do.a t/ 
[AARMARRNARARARARERRRRADRERERELERRERREONAEEARRERRDAREEERAROREERRARERORRON 


* ® 
* Gd.c -- ASAN GRASS code te draw = “digit” file on the screen. bed 
a * 


RRRARAAAAA RARRARRERAKERERARKKARRA SARKRRHAAAREKRKAAREAKERRKASER whennenenengann / 
fdefine DB (str) 


@inalude “grass .h* 
finclude “gglobs.h° 


@Anclude <fanti. b> 
finclude <syse\typee.h> 
#inalade <sys\stat b> 
#Aaclude <ic.h> 


etatic char faam [80]; 
static PILZ *afp: 
etatic char xhuf [100] ; 
static iat fiine; 
static char b type; /* block type */ 
etatia int eount: ; 
@_digat () 
{ 
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2. whe 


ant i, 4, =, y: 
int last sig; /* index to latest aca-whitespece char (-l=uces) */ 


eet _ display peranme () ; /* eet up window 6 viewport #/ 


oprint?( fam, "ea\\te\\te\\digit\\se", 
Gisdbese, mapset, loantica, layer2add) ; 


af ( ( 4fp = fopen( fam , ez" ) ) a= MOLL ) 

{ 
SLOUTP( “?d digit: fopem te failed* , fue ); 
wetura( -i ); 

} 

fline = 0; 

/* ekip the 14 lines of unwanted header stuff */ 


fore (i180; 14< 16; S44) 


{ 
flinet++; 
if ( fgete{ rhuf , 100 , dfp ) = NOLL ) 
{ 
DDERR( “fgets error® ); 
wetura( -1 ); 
} 
} 


elip to window(); 


We kaow that current digit files contein exactly ome aategory each, 
aad that next cat pv hae just been incremented ia build legend (), so 
the followiag color selectica code is MOCE simpler than it ought to be. 


Color/legead etuff will be VERY screwed up if any of the subsequeat 
error returas is taken. 


~ 
ses es ea @®@ Be ® 8 
Pod » 


Setra( next ost pw - 1 ); 
/* process the digit file cae blook at a time */ 
while ( ( b type = fgeta( dfp ) ) im mow ) 


{ 
DB (SLOUTP ("dad: ist char of block = tc = ¥o",b type,b type) ;) 
wwitah( b type ) 
{ 
ease ‘Rh’: /* polyline */ 
fiinet++ ; 
af ( fgeta( dtp) te’: ) 
{ 


DOERR ( “bed char follows block type" ); 
return( ~1 ); 


} 

DB (SLOUTP ("dd A: got °:'*");) 
if ( fecant( dfp , "a" , Scount ) <1) 
{ 


DDERR ( “bed count or early mor ): 
netarm( ~1 ); 
} 
DO (SLOUTP (“dd A: got count=%d", count) ;) 
fline++; 
af ( feaanft( dfp , “ *1f 41£° , &del , &dyl ) <2) 
{ 


DOERR( “bed lst wertex or early Bor" d; 
wetura( -1 ); 

} 

DS (priat? ("dd A: got ist wertexs tif ®1f\m_", dxi, dyl);) 

for (i= 0; 4 < commt - 1; 44+) 

{ 
Pline++; 
if ( feoant( dfp , * %le t1f ", Ede2, Edy2) < 2) 
{ 


DDERR( “bed data or early Bor" ); 
retura( -1 ); 
} 
DS (print? (“dd A: got next vertex tif Slf, eall @_line() \n", dz2, dy2) ;) 
d_line({); 
azl = dx?> 
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yl = dy2; 
) 


DB (ELOUTP ("dd A: done”) ;) 


cer, /* text e/ 
fiinet++; 
af ( fgeta( afp ) te ’:' ) 
{ 


DDERR( “bed char follows bleak type* ); 
wetura({ ~1 ); 
} 


DB (SLOUTP (“dd B: got °:°°);) 


} 
DB (SL0UTP ("dd F: got ‘Se’, txt) ;) 
fline++: 


af ( fgete( rher , 100 , afp ) a= WOLL ) 
{ 
DDERR( “bed string or early BOF ); 
return( -1 ); 


} 

aise 

{ 
iw; 3 0; dast sig = -1; 
weile ( sbef[4] t= ‘\m’ ) 


af ( ( sets) me’) ff ( mbuela] we \tr ) ) 
af ( last sig = -1 ) /* toes leading white */ 
a4+; 
alse /* knep embedded white */ 
t2t [34+] = rhuf [its]; 
@lse if ( ebuf[i} == ’\0’ ) /* embedded null ¢/ 
break ; 


/* wegular old char */ 


“§ 


last_seig = 4; 
txt [++] = ehat [i++]; 


} 
txt [last eig+2] = “\o’; /* tose trailing white */ 


o 


if ( feceaf( dtp , * Sig Sle ° , Edzl , Edy! ) <2 ) 
{ 
DOERR ( “bad locatica or early BOF” ; 
retura( -1 }; 


DO (priat£ ("dd F: got loc %1f %1f\a°, del, dy) ;) 


fline++; 
af ( feceaat( dfp, = sig si¢ s1¢ tle 84 tea s 
Sheight, éwidcth, Sxotation, Sslant, sfoat, &jast) < €) 
{ 
DEERR( “bed deta or early Bos" ); 
return( -1 ); 


} 
DB (SLOUTEP ("dd F: got pearsmeters, call @ text (}");) 


d_ text ( Um coonps ); 


DB (SLOUTP (“dd A: done") 3) 


break; 


default: 


fline++; 
DDERR( “bed block type® }; 
weturn( -1 ); 


static DOERR (a, b, 6, 4@,0,£, 9) 


{ 


char megbuf [60] ; 
char tupbaf [80]; 
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alip to sareen () ; 
) 


/* end of dd.c #/ 
[ARAAREARARARARRAEEREARERREERREEDRERARERERERERAEARARADARAREREEERRERROEEES 


® « 
bad @rav.a -- code to draw actual graphics * 
a * 


RARGAKRARERERREE *Reeenakekeanee Hkeeteeneatanesannrea anaaennestnesnangannenn / 
fdefine DB (etr) 


Hmclude “grase.h° 
finclade “gglobs.h* 


fdefine XPIX (xx) ( Wi + dround( ( zz - Viwast ) / Umm per pixel ) ) 
define YPIX (yy) ( Wb + dround( ( yy - Visowth ) / Umm per pizel ) ) 


extera int xfont, yfout; /* Tmagraph text perems */ 
extera int chardepth, charwidth: 


static iat t_eize = 1; /* text som factor (1-16) */ 
etatia iat =piz, ypix; 


d@ line ({) /* drew a line */ 
{ 
aline({ XPXx( dxl ) , YPIK( dyl ) , MPIX( Ge2 ) , YPYE( dy2) , 0260 ); 
} 


4 tert ( type ) /* deaw text */ 
char otype: /* SCREEN COORDS or Vim GooRDs */ 
{ 


amt i, xf, yf; 


if ( ctype a= ums _coonps ) 


{ 
xpiz = ZPrx( dri ); 7 
ypiz = TPIX( dyl ); 
} 
else /* SCREEN CGocEDs #/ 
{ 
zpiz = izi; 
ypiz = iyi; 
} 
t_sise = 1; 


af ( fomt am ‘R’ ) 
mf = xpiz ~ ( etrlen( txt ) * charwidth ); 
else if { fomt a ‘cc’ ) 
xf = zpiz + ( ( strlea( txt ) * charwidta ) / 2 ); 


else /* assume foot = ‘I,’ */ 
=f = spiz; 
Yt « ypixz - ( chardepth / 2 ); /* supplied Y is vertical cester */ 
for (i= 0; 4 < otrlem( txt ) ; i++ ) 
{ 
xfoat = xf; 
Yfoat = yf; 


DB (SLOUT? (“gputa: zfoat=td yront=td chareto=0%to”, xfont , yfont, txt [1], txt [4});) 
af ((txt [2] om’ ') |] (emt [a] am ‘“\t’)) /* epece or tab -> spece */ 
oharwidth ; 


=f +2 : 
alee if ( txt[(i] < 040 ) /* Signore ctrl chars altogether */ 
else /* send everything alse to scresn */ 
{ 


gpute( tzt(i] , t_eize , 0 ); 
xf +~ charwidth; 


SetPata( -O ); /* reetore solid pattern a/ 


/* emd of draw.a */ 
[ARRRAARAARENhAAARREAHedERRAnnhREReSeaeKeNndanenehhenennenhennhtannnanen 
2 

« 
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G@glicbe.c -- gichalse aad perumeteres for ASAN GRASS. 


2 
& 
* aeeee WARNING: ‘EIS FILE MUST MATCE gglobe.h eeeen 
a 


a 
hahaha datalelahahadalahabababahahaiahaiabalalatniahahbabebabeiahabbebalsiehallaiehalehelaiiiaisaleiaiedelataiaeleiaigiteidididaied A 


ude "“grase.h° 


dinem [MAX DUAYERS)] [12]; /* displayed layer names */ 


finol: 

char 

iat aun dlayers; /* how many layers now displayed */ 

LLIMER 8 86leg [MAX CATS] ; /* legend/cat data structure */ 

int awm_llines; /* how many legend/ont data entries now */ 

iat nazt cat pv; /* next pizval to use for cxtegory */ 

char wnapect; /* carreat mapeet (“ASAN") */ 

char ®location; /* current location same (“Sells") */ 

char *giadbase; /* current mep data base dir (*\grase\mape*) */ 
char vpname [12] ; /* current viewport name ("C"=ccerse, eta.) */ 
char winneme [12] ; /* curreat window name */ 

ahar layerZedd [12]; /* name of layer to add to display */ 

char layer2del [12}; /* nema of layer to remowe fron display */ 
char layersaveaae [12] ; /* name to use for layer being saved */ 

char laytype; /* lmyer is: 'C’s cell, ‘D's digit, "L'a DEG */ 
char window frume drawn; /* YES 1 window frame drawa, else WO */ 

Ghar legend drawn; /* Yue 4f legend drawn, alse moO */ 

char DMA elev draw; /* YRS 4f DMA elevations are drawn, else MO */ 


double del, dxr2, dyl, dy2; /* seme vertices */ 
Sat ami, ix2, dayl, ty2 /* ecme vertices */ 
char txt [100]; /* data needed to draw taxt a/ 
double height, width, rotatica, slaat; 
' det font ; 
ahar just; 
ant Wt = ORF; /* carrent window, in screea soords af 
int Wbe scr 
iat Wiis scar. 
ant Wore BCR: 
iat W_urows ; /* how many rows */ 
int W_acole; /* bow many columns */ 
iat V_ prey; /* current viewport, in Umte */ 
ist V_ scoae; 
double V north; 


AL 


4 


le Vas ree: 


7 


/* ead of gglobs.ca */ 
[PARHREARAAARATAREROERERARERARERRARERRARERERREREARARRARARARAREREEROREERONS 


® a 
bad geass.c -~ ASAN grephice meia routines. al 
® ® 


SANAOARERERSRRAARAARAARDRNARAEREERREDERRRERARORERERNERRENEeNERRERRERHERE/ 
fMefine D8 (str) 


#iaclude “grass .h° 
#iaclude "“gglobes.h* 


char TMA_elev being drawn; 


etatic char dflt_mapeet (} 
= { 'a’,’a’,’a’,’a’,*\o" }: 
etatia char dflt locatica{] = 
{ "8 ,’a@’ 91,1", % a," \Or }: 
static char @flt gisdbase[} = 
{ AV gle Bh, a, 0", 0", NN, el, a, pe, a, NO ): 
static char @2lt_wianeme[] = 
{’we,°3",'m’, A", £0", 'w","\0'); 


atetic cher fnem [80]; 

etatic FILE fp; 

static int after Uiait: 

static char del layer in progress: /* KLODGE ALERT */ 
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@imit () 


{ 


et re ee 


/* call me first */ 


mapest = (cher *) dfit mapest ; 

lecatica = (char *) dflt_loastica; 
gisdbase = (char *) dflt_gisdbese; 
etrapy( winnaeme , @flt_ winneme ); 


/* used to be envircement vars ... 


s/ 


begin _1@_ grephias(); 
/*e =lead_defeult palette(); #*/ 
TaitFoat (); 
init colers () ; 
after Vinit = Ww; 
clear_scresn {); 
after Uinit = YES; 
DMA_elev beiag drawa = HO; 
} 
Ghar *vetr; 
{ 
if ( etramp( vetr , vpaawe ) = 0 ) /* ignore if no chaage */ 
returns; 
af ( ( stramp( wetr , "Sells.c" ) = 0) [| 
( etramp( vetr , “Ajo.m" } mo) i} 
{( stremp( wetr , “Selle.m"™ ) = 0) || 
( etramp( wetr , "Ajo.F° >} = 90) I} 
( stremp( wetr , “Selle.F° ) = 0) ) 
{ 
stropy( vpamme , vetr ) 
MEWVALS () : 
Glear screen (); 
} 
else 
SLOUT? ( °? unknown view te” , vwetr ); 


clear screses () 
{ 
aut 4: 


erase _grephicse display () ; 


for (i= 0 ; 4 < MAX DUAYERS ; 
strapy( dinam{i] , °° ); 
aum dlayere = 6; 


af { after UVinit ) /* 
MEWVALS () ; 
} 
erase_grephics display {) /* 
{ 
clip to screen (); 
els( C ams ); /* 


SetPa( C SCR FRE ); /* 
aRect( SR EU+1, SRB+1, 


/* 
/* 
/* 


window frame drawa = HO; 


legend_drawa « wo: 
IMA elev dravwa = WO; 


if ( etramp( vpasme , "" ) = 0 
i 


/* erase screen 6 clear parameters */ 


At+ ) /* mo layers displayed */ 


MEWVALS before Uinit -> bizarre crashes a/ 


just erase the screen */ 


clear screen to beckground coler */ 
draw «cream freme */ 

SRR - 1, SR T- 1, O40 ); 
window frame is gone */ 


legend is gone */ 
TMA elevaticas are gone */ 


add a layer to display */ 


) /* 1f mo active view, give up */ 
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for (i= 0 ; 4 < strlem( leyerzedd ) ; i++) /* assure name is uppercase */ 
4f ( ( leyerzadd(’j >= ‘a’ ) £6 { leyerZadd[i}] <= ‘nx’ ) ) 
iayer2zadd[ij] -= 040; 


af ( etramp( layerzadd , “OMA_ELEV" ) == 0) /* special case ¢/ 
{ 


draw dua elev (); 
setura( 0 ); 
} 


/* eee if it exists */ 


laytype =’ '; 
eprintf( faa, “to\\te\\te\\digit\\se*, /* digit file? */ 
gisedbase, mapect, locatica, iayer2add) ; 
42 ( ( fp = fopem( fam , "e* ) ) fo NOLL ) 
laytype = 'D’; 
af ( laytype =m’ ) /* ao, cell file? #/ 
{ 


epriat?( fae, "to\\%e\\te\\cell\\te*, 
giedbase, mapect, locatica, layer2add) ; 
if ( ( 2p = fopen( fam, "zx" ) ) t= wOLL ) 
jaytype = ‘Cc’; 
} 
a€ { laytype a’ - ) /* no, doesn’t exist */ 
{ 


SOUT? ("?add layer: no such layer %s", lsayer2edd) ;: 
stropy( layerzadd , °* ); 


af (1 del_layer_ia progress } 
{ 


af ( sum _disyers >= MAX DLAYERS ) /* add it to @isplayed-layer list */ 
{ 

SLOUT? (“?add layer: screem list is fall"); 

etropy( layerzada , °° ); 


} 

stropy( dinam[nue dlayers} , iayer2add ); 
awn disyers++; 
} 


beild legead() ; /* add it to legend */ 
ag {( legead drawa ) 


{ 
hide legend {); 
show _legead() ; 
) 


SLOUT( “Drawing te" , iayer2add ); 

if ( laytype = ‘p’ ) /* dzaw it #/ 
d_digit (); 

else if ( laytype == ‘c’ ) 
@_oell (); 


etropy( layerzadd , ** j); 
MEWVALS () ; 


del_layer () /* remove a layer from display */ 
{ 


iat 4, idx; 
char save_id; 


for (i= 0 ; 4 < etrlen( layertdal ) 3; i++ ) /* assure meme is uppercase */ 
4£ ( ( layer2del(i] >= ‘a’ ) $6 ( layer2del[i] om ‘2’ ») 
layer2del[i} -= 040; 


af ( stramp( layer2edd , "DMA_ELEV" ) == 0 } /* epectal case */ 
DMA_elev_drawa = WO; 


/* fixret remove it from displayed-layer list #/ 
idx = -}; /* find it 4m list «/ 


for (i= 0; 4 < oum dlayers ; 14+) 
Af ( stromp( dinam[i} , layer2del ) am 0 ) 
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diaz @ i; 
af ( ide = -1 ) 
{ 
SLOUT? (“layer te is act om display”, layer2del) ; 
stropy( layertdel , °° ); 


MEEWVALS () ; 
wetura( -1 ); 
} 
42 ( id= < num _dlayers - 1 ) /* 4% 4% wasn’t lest in list #/ 
{ 
for ( i = ide ; 4 < num dlayers - 1 ; i++ ) /* all move up */ 
etropy( dimem{idx) , Ginem[ide+1j ); 
etropy( dinem(awm dlayers-1] , “* ); /* erase last t/ 
} 
amma _diayers--; 
MEWVALS () ; /* ... gratuitous */ 
/* 


* Actually delete the layer from the graphics display. 
e 

* For sow, brute force: erase the graphics screen and 
* repeist all layers but the deleted cae. 

*/ 


save 1d = legead drawa; /* remember legend drawn */ 
erase graphics display ( ); 
del_layer ia progress = YEs; 


for {i= 0; i < aum_dlayere ; i++ ) 
{ 
etropy( layerzedd . dlnem[i} ); 
if ( add_layer() = -1 ) 
{ 
SLOUT? ("?del_ layer: redraw error on te” , dayer2add ); 
etropy( layerzdel , "" ); 
MBWVALS () ; 
del layer ita progress = m0; 
retura( -1 ); 


} 


legead_drawa = save_1d; /* recall legead_drewn */ 
if ( legead_drews ) /* & redraw it 1f necessary */ 
{ 

hide legend () ; 

show legend () ; 


} 


del_layer in progress = moO; 


store screen () 
/* 3% screen is biank, give up */ 


if ( num _dlayers = 0 ) 


{ 
SLOUT? (“Ttetore screen: screen is empty -- nothing to save”); 
stropy( layersavesame , °* }: 
MEWVALS ({) ; 
weeturn( -1 ); 
} 


/* af layer with this name already exists, give «wp */ 


printf ( fae, “%a\\te\\te\\digit\\se", 
giedbase, mapeet, locatica, layereavename) ; 
af { ( 2p = fopea( fnam , "zr" >} ) t= MOLL ) 


SLOUT? (“?etore ecrean: layer %e already exists”, layersavename) ; 
etropy( layersavename , "* ); 

REWVALS () ; 

retura( -1 ); 
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opriat?®( faem, “%ts\\%te\\%e\\cell\\te" ; 
qisdbese, napect, leaatica, iayersavensms) ; 
Gee eee "es? ) ) t= WOLL ) 


RAV (*tetore_screes: layer te already exists", iayersevename) ; 


} 
leytype = ‘Cc’; 


screen2 cell {) ; 
add _to layertzt (); 


etropy( leyersavename , “” ); 
WEWVALS () ; 


show dist {)- 
{ 
SLOUTP { “This feature is act yet aveilabie’ ); 
} 


ehow_coords () 
{ 
SLOUT? ( “This feature is act yet available’ 3 
} 


edit_colors () 
{ 


SLOUTP { “This feature is act yet available" ); 
} 


eer 0 
Setama( Wl, Wb, Wr, Wt); 
‘ x 


elip to screen Q 
{ 
SetADR( SCR , SRB, ORR, SRT); 
, dd 


eee ¢) /* epectal branch of edd layer() */ 
amt 4; 


af (! dal_layer ia | progress ) 

{ 

ng ( sum _dlayers >= MAX DLAYERS ) /* add it to displayed-layer list */ 
SLOUT? (“?tadd layer: screen list is fall”); 
etropy( layerzadd , °° ); 


} 

strapy ( dines (num dlayers} , iayer2add ): 
aun dlsyers++; 
} 


build dma elev legend () ; /* special legend tec a/ 
DMA_elev beiag drawa m TES; 
oe een "Sells.c™ )} =w 0 ) 


etropy( layer2zadd , “AO B.C” ); 
SLOW? ( “Drawing AJO £.C RLV wpe 
"i i m (Teen pert 1 of 3)* }; 
etrcapy( layer2add , “RIO W.C™ ); 
SLOUT( “Drawing AJO W.c RLEV ">: 
z i SS (CMA pert 2 of 8)" ); 
etropy( layer2add , “LUEEV.c° ); 
SLOUT( “Drawing LUKEV.C (DMA_ELEV part 3 of 53)* }; 
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mw 


d@ _oali(); 
etrapy( leyertedd , “NOGAL.C" )}; 
SL0OUT( “Drawing WOGAL.C (TMA_ELEV part 4 of 5)* ); 
d _oeall({); 
etropy( leyer2zedd , "TUCSN.c" ); 
SLOUT( “Drawing FUCSN.C (DMA_ELEV pert & of 8)° ); 
d@_ call (); 
} 
alse if ( etramp( vpasme , "Ajo .mM” ) aw 0 ) 
{ 


stropy( layerzedd , °AJO_E.MA" ); 
SLOUT({ “Drawiag AJO_8.MA (DMA_ELEV pert 1 of 1)* ); 
@_cell(); 


} 

@lee if ( stromp( vpeme , “Selle .M* ) == 0 )} 

{ 
etropy( layer2zedd , “AJO_B.ms" ); 
SLOUT( “Drewing AJO_%.ms (OMA_ELEV pert 1 of 4)" ); 
4@_cell({); — 
stropy( layerzadd , “LUEKEV.Ms* ); 
SLOUT( "Drawing LUERV.MS (OMA _ELEV part 1 of 4)" ); 
@ call (); 
etrapy( layerzedd , “MOGAL.me" ); 
SLOUT{ “Drawing NOGAL.Is (TMA_ELEV part 1 of 6)* ); 
@_aell (); 
stropy( iayerzadd , "TUCeM Mme" ); 
S200? ( "Prewing TOCSN.ms (OMA _ELEV pert 1 of 4)° ); 
@ _oell({); 

} 

else if ( stramp( vpame , "Ajo.P° }) == 0 ) 

{ 
etropy( layer2tadd , "AJC_E.FA" ); 
&LOUT( "Drawiag AJO_Z.FA (DMA_ELEV pert 1 of 1)° ); 
@_oeall(); 

) 

else if ({ stramp( vpase , "Selle .F" ) = 0 ) 

{ 
etropy( layerzadd , “NOGAL.Fs" ); 
SLOUT( “Drawing NWOGAL.FS (OMA_ELEV part 1 of 1)" ); 
@ call (); 


} 
alse 
{ 
SLOUT? ( °? no DMA elevation data for this view" d: 
DMA_elev beiag draws = O; 
DMA elev drawn = MO; 
weturnm( -1 ); 
) 


etropy( layerzedd , "* ); 
MEWVALS () ; 


DMA_elev being drawa = MO; 
TMA_elev drawn = YES; 


} 
dround ( mum ) /* double-precisica-to-integer rounding routine a/ 
doable aun; 
{ 
if ( aum > 0.0) return (int) (mum + 0.499); 
alse retura (int) (pum - 0.499); 
} 


/* end of grass.ca */ 
[REREAAREAARARARERERRERERERRNHERARERERERRARRERRAREERERRERORERREARARRENARE 


* * 
* ig.c -- device driver fuacticas for Imagraph AGC hardware. bl 
* a 


nhahalahahahahahahalaiadalabataialabalaiahalaiatedahalabalalabalebaishalalaiaialetsilainteletaidenteloininltetitatt tds et A 
/* fdefine GRAPEICS DEBUGGING 1 a/ 

#include “stdic.h" 

@include “aerta.h° 

@include “imagreph.h" 


iat @erz = 0, Ger = 0; /* debug switches */ 


/* Ymagreph harcdware/software stuf¢ */ 
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maz intensity; /* max color intensity for this hardware */ 
/* iutensities of ist 16 colors */ 

/* handy potater te Id model ideat */ 

iat filpet [16] = {~0, -0, <0, 0, <0, ~0, 0,00, ~0, 0, -0,~0,=0, 90, <0, 0}; 

/* £412 pattern mask */ 


/* Stuff defined in Imagraph libraries */ 


extera ist Foursit ; /* 4 => 4-bit, © @ 86-bit a/ 


extera Di&istru *pnm: 


ezxtera Deistru IeMamodal [j ; 
BasesC; 


extern SCREDEF Uppersc; 


GBA = 0; Ger = 6: 


priat?("\neanncunse every hardware osll? (imyes, O=mo): *); 


@aanf("%d°, 6GDMA); 
ae ( apa ) 


print? (“pauses after hardware coal. sancuncementes? (imyes,Ommo): "); 


scant (*%a", £GDae); 
} 


fendie /* GRAPRICS DEBUGGING */ 


/ fee 


modal = getenv (" IMAMODEL") ; 


42 ( 1 ( board = Itkcpen (model) ) ) 
{ 


debagout ("\nDiopem failed: Imagraph hardware act found\n‘) ; 


exit (0); 


tweaker () ; 


SCalc (BASE SCREEN, CRaseSC) ; 
IG_hdw init (); 
SetOrg( BaseSC.ol, Bases .o2) ; 


max intensity = (Fourmit) 7 15 : 


Palette ~ palalloa() ; 
ioad_default palette () ; 
CizrScra( 6BesesC , 0); e00/ 
Setra( 7 ); 

Setba( © }; 

SetPata( 0 ); 


void end_IG graphics () 


{ 


IG_hdw release QO: 
free (Palette) ; 


/* lekt’s tweak hardware a/ 


/* doa’t use upper ecreen a/ 


/* dea’t use lower screen */ 


/* bese screen for graphics */ 


/* reset frame buffer pointer */ 


/* tmattalise hardware a/ 
/* coord system ca base ecreen a/ 

2553; /* maz color intensity value a/ 
/* allocate palette image memory */ 
/* load defsult palette */ 

/* clear graphice screen to BLACK a/ 
/* default foreground is WHITE «/ 
/* default background is BLACK */ 

/* default pattera is solid */ 


/* clean up hardware */ 
/* clean up heap */ 
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static 10 hdw init () /* init hardware */ 


{ 
TALaLt () ; /* 4nittalinze the hardware 2/ 


Setapn( 0 , 0 , pIMA->smarpiz , pIMA->ymaxpiz ); 
f4miatcr¢~ oo, 09,090, 0)? ~~ 
itermoda( 1 ); /* get us into graphice for saa +/ 


weteurn (0) ; 


/* close hardware */ 


/* get «us out of graphics for SGA */ 


loed default paistte () 
{ 
make default palette () ; 
putiut ( Palette ); 


weturs (0) ; 
} 


static make default palette () 


{ 
imt mi, mid4, miz; 


mie (FourBit) 7 15 : 255; 
mi34é = (mi >> 2) * 3; 
mi2 = wi >> 1; 


/* 75% ixteneity */ 
/* SO% intemsity */ 


pinitcr (Palette, 0. 0, 0, 0); 
piaitcr (Palette, 1, mi, 0, 0); 
pinitcr (Palette, 2, mi, 0, mi); 

- pamitcr (Palette, 3, 0, 0, mi); 
pinitcx (Palette, 4, 0, mi, mi) 
piaitcr (Palette, 5, 0, mi, 0); 
pinitCr (Palette, 6, mi, mi, 0); 
pinitcr (Palette, 7, mi, mi, m4); 
pinitcy (Palette, 8, mi2, mi2, mi2); 
pinitcr (Palette, 9, mi34, 0, 0); 


piaitcr (Palette, 10, mi, 0, mi34); 


piaitcr (Palette, 
pinitcr (Palette, 
pinitcr (Palette, 
piaitcr (Palette, 
pinitcr (Palette, 


22, 0, 0, maze); 
12, ©, mi, mi34); 

13, 0, mi34, 0); 

14, mi34, 0, mi34); 
15, midé, mid4, mi34); 


retura (0) ; 


/* ema of ig.a */ 
[RRRARAAARRAREERAREEAAERERREAAREAEREEAERARERERRERAHAAREEREREERAERRAHARAER 


* e 
® leg.a ~- ASAN GRASS legend and category file handing. bal 
® e 


RRAAAAERRARAAEERADEBEERERARERARERERARERETAARRAEERENRARERERAAE wenanannaaan / 


define DB (str) 


finclude “grass .h” 
#iuclude "“gglobe.h” 


(define LEG FRA SPACE 


define LBC PV WIDTE ( charwidth ) 
fidefine LEG PV REIGET ( chardepth - 2 ) 
define LEG PVZTXT SPACE ( charwidth / 2 ) 
ezters int chardepth, charwidth; 

static int leg_frame top; 

static int leg_freme_bot; 

static int leg frame left; 

etatia iat leg treme right ; 

etatia int leg_frume height ; 

etatic int leg frame width; 
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etaetia FILZ e2p; 
static int sount ; 
gstatic int Ziine; 


etetic ehar Suak [100]; 


build legead {) /* beild legend data structure */ 
{ 


{ 
eopriatf{ fnam, °%te\\%te\\te\\coats\\te", 
gisdbase, mapset, locatica, A@lnem [dlidz}) ; 
if ( ( fp = fopen( faa , “x” ) ) o= MOLL ) 
{ 
SLOUTP ("?huild leg: fopem ts failed’, fnem); 
retura( -1 ); 
} 
fline = 1; 
a2 ( fecant( Sp , ° td te ° , Soount ) < 2 ) /* read ist line */ 
{ 
BLERR( “bed ooumt or early BOF" }; 
weturn( -1 ); 
} 
for (im 0; 4<2 ; S44) /* ekip next 2 lines */ 
{ 
fiine++: 
af ( fgete( jemk , 100, fp ) s WULL ) 
{ 
BLERK( “fgets error” ); 
weturn( -1 ); 
} 
) . 
for (280; 4 < count ; i++ ) /* the reset are cats */ 
{ 
if ( mum llines >= max Cars ) /¢ prevent overflow */ 
{ 
BLERR{ “legead data epece full" ); 
retura( -1 ); 
} 
fline++; /* store string */ 
if ( fgets ( leg [{num_llises].etr , 100 , 2p ) == WOIL ) 
{ 
BLERR( “bed data or early BOF" ); 
retura( -1 ); 
} 
/* replace <ret> isa string with <aall 2/ 
for (j= 0; 4 < strlen( leg(num_llines] str ) ; 3++ ) 
Af ( leg(num_liines] .str{4)] = ‘\n’ ) 
leg [num_llines} .etr[4}] = "\0’; 
leg (aum_llines] .pv = next cat pv; /* estore pixwal */ 
nest cat prt+; 
awa_llines++; 
} 
felese( fp ); 
DS( printf (“count=td num liinesetd:\a", count, aum lilines) ; ) 
DB( for (i= 0 ; 4 < num llises ; 4+ ) ) 
DB( = printft({ “te\a" , leg[i].str ); ) 
DB( geteah(); ) 
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eprint’ ( tapbef , a, b, o,d,@,£,9); 
opriat!( megbuf , *?beild leg ts (9d): © , Summ , Zline ); 


etroat ( megbuf , tmpbuf ); 


SLOUTP ( magbaf ); 
falose( fp ); = 
} 
show legead () /* draw legend ca grephice screen */ ; ) 
{ 
dat i, 3, wid, y; 
af ( legend drewa ) /* 4¢ legend is visible, erase it */ 
hide leguad () ; 
ieg_freme top = Wb - 4; 
leg _fxeme left = 8; . 
wid = 0; /* find widest legend line striag */ 


for (i= 0; 1 < num Liines ; i++ ) 
af ( ( J © otrlea( leg[i}).ete ) ) > wid ) 
wid @ 4; 


ieg_freme_height = ( aun _llines * chardepth ) + ( LBG_FRAME SPACE ¢ 2 ); 


leq_freme_width = LNG_?V_WIDTE + LUG PV2TXT SPACE 
+ ( wid * charwidth ) + ( LUG _FRAME SPACE ® 2 ); 


leg _frume right = leq_freme_left + leg frame width; 
af ( ( leg_freme_ bot = leg_freme top - leg frame beight ) < 0 ) 
{ 


SLOUTP (°? legend frame below screaa bottcm”) ; 
ieg_ frame bot = 1; 
) 


Setra( C LEG FRAME ); /* a@rew frame */ 


akect ( leg frame left , leg frame bot , 
leg frame right , leg_frame_ top , 0x40 ); 


y © leg_frema top - LEG FRAME SPACE - chardepth; /* draw legead lines «/ 


for (i= 0 ; 4 < mum_llines ; i++ ) 
{ 
af (y<0) 
{ 
SLOUT? ("?legend text below ecrean bottam*) ; 
legend_drawe = YES; 
return( -1 ); 
} 


SetTG( 1eg[i} .pw ); /* draw aoler bloak t/ 


aFRect ( leg frame left + LEG FRAME SPACE , y , 
leg_freme_laft + LEG FRAME SPACE + LUG PV WIDTE , y + laG 9V EEIGE? , 


Om40 j); 
etropy( tat , leg[4) .etr ); /* draw string */ 
izl = leg frame left +L2G FRAME SPACE + LEG FV WIDTH + LEG _PV2TX? SPACE; 
ayl @ y + ( chardepth / 2 ); ¥ 


hide legead () /* erase legend from graphics screen a/ 
{ 
af ( legead_drawa ) 
{ 
Set7Fa ( C_BEG ); /* 18 FAIS THE connect apr? «/ 


afrect ( leg frame left ; leg_frume_beot . 
leg _freme right ; leg frame top , On40 ); 
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} 
legead_drawa «= WO; 
} 
build des elev legead () /* beild especial legend for DMA elevations «/ 
{ 
/* ADD ME LATER */ 
} 
show DMA elew legead () /* draw DMA elevation legend #/ 
{ 
/* ADD ME LATER *«/ 
} 
hide DMA elev legead {) /* exase TMA elevatica legend */ 
{ 
/* ADD ME LATER */ 
} 


/* end of leg.a */ 


[/PAAAAAREREADEAREREERAERAERDORNAREERERERNEENERSENAOKARRRORARRARERERERRAEE 
e 


e 
* it.c.-- ASAN GRASS map layer list /descriptica text file management. * 
@ a 
* NOTE: Meme “layers.tzt" is wired into this code. * 
* 


2 
CERAEARARERERAERNDES BEREAN ERERENEREREARRRRERRERHRENENARERERRERERENERAEAD/ 


@inolude “grase.h* 
@include “gglobe.h* 


etatic char fuam [80] ; 
static FIR *fp; 
etatic char nambef [12] ; 
add to layertxt {) /* add new layer name to the file */ 
{ 
aut 4; 


if ( ( fp © fopem( “layers.tzt* , °r" ) ) == MOLL ) /* first find tt #/ 
{ 


SLOOP ("?tadaz1: fopen{r] layers .txt failed") ; 
wetaurn( -1 ); 


) 


felosee( fp ); ‘ 


if ( ( Sp = fopen( "layers.txt" , “a* ) ) =e NOLL ) /* mow really open it */ 
{ 
SLOUTP (" ?add21: fopen[a) layers txt failed") ; 


retura( -1 }; 
} 


/* ascure layer name is uppercase ¢/ 


for (420; i < strlen( layersavenme ) ; i++ ) 
af ( ( layersavenme[i) >= ‘a’ } 6& ( layersavename[i] <= ‘5’ ) ) 
aembuf[i] ~ layersavename[{ij - 060; 
alse 
nambof [i] = layersavename [i]; 
nambuef [++1] = “\0’; 


fprintft( fp , “ts\n”" , membuf ); 


falose( fp ); 


rem_from layertxt {) /* remove a layer name from the file «/ 
{ 
} 
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/* end of lt.a */ 
/* ADO BEFYER FIEID cescrow. GAVE WIN & VP, CHECK AGAINST MEW CHES */ 


[CAMANTAAAAEAASARNERARERERORAREAERDRERERENENREREERAREERERARERERteaanane 


vw. ~~ read wiaddow 6 viewport files, set up display parameters 


FILE FORMATS ARE EARDWIRED DFTO THIS CODE, 
AMD ORDER ow IVES Dl FILES IS CROCTAL. 


*#@#ns & 2 8 


Reansaaganceencesneananaaanenasannanecanssnnennaaeannenaananneansenenens/ 


Sdafine DB (str) 


finalude “grass .h° 
#Aaclude “gglebe.h" 


@Anclude <fantl.h> 
Pinclude <sys\types .h> 
finclude <sys\etat .r»> 
fAnclede <ic. h> 


static char fnam {80}; 
etatia char gunk [20]; 
etatic FILE *fp; 


eet_display perms () /* eet up display peremetare #/ 
{ 


double h temp, v temp; 

/* read the window file */ 

eprint? ( faam, “ts\\%e", gisdbase, wianeme) ; 
af ( ( £p = fopen( fam , “x ) ) mm MOLL ) 


SLOUT? ("tvw: fopen window te failed’, winname) ; 


weteura( -1 ); 
} 
facanf( fp , "te tda° , jank , aw); 
fecant( fp , °te ed , junk , GWir); 
fecant( fp , “te td" , jemk , ow); 
fecaat( fp , “te 4° , gunk , ewe ); 
faloweea( fp); 


/* Pind aumber of rows & columns in screen window #/ 


Warow oo we - Wb +i; 
W_reoolse = Wwe - Wi+ i; 


DS (ZLOUTP ("ww: Wtetd W betd Wietd W retd W_nrows=td W nsolsatd", 


Wt,Wb, wii,Wer, W nrows, W ncols) ;) 


a window frame drawn ) 


{ 
Set ra ( C_WIN FRAME ); 
apect(W1l-2,Wb-1,WEre2, Wet, Ox40 ); 
window frame drawn = YES; 

} 


/* weed the viewport file */ 


eprint ( fmem, °%6\\%e\\te\\vuport\\te", 
gisdbese, mapeset, loastica, vVpaame) ; 


if ( ( Sp = fopen( fumm , “r* ) ) == wOLE ) 


SLOUT? ("?Pew: fopen vwport ts failed", vpasme) ; 


cetura( -1 ); 

} 

fecanf( fp , “ts ta* , jank , 6V_pre4y ) 
fecanft( fp , “ts td" , junk, &V_some ); 
fecanft( fp , "ts tig" , jank , &V_north } 
feceaf( fp , “te tir" , junk, &V_south }; 
fecanft( fp , "tse 219° , yank, 6V_wast }; 
fecanf( fp , "te tir" , jonk , &V_east ); 
fscanf( fp , “ts te s1£° , jyenk , juak , &V_ ne ree ); 
fecanf( fp , "ts te s1¢° , yank , jumk, &V_ew res ); 
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fecaaf( fp , “ts td" , funk, 6V_foxmet ); 


falose{ fp); 


Find resolution (UiMs per pixel) . 


Zo assure thet mape fit in the window i= both directicas, 
compute it twice (using horizontal and vertical dimensicas 
aad store whichever is aumerically larger. 


~ 
>» 3 ® © 
2 ® © » 


| v temp o { V_aceth - V south ) / (double) ( Wt - Wb): 
bh temp = ( V_east - V wast ) / (double) ( Wir - Wi); 


42 { v temp >= h temp ) 
VIM per pirel = wv temp; 
alee 
Um™_per pizel «= h tamp; | 
DS (SLOUTP (“vw: UiM_per_pizel=tlf”, 0IM per pizel) ;) 


retura( © ); 


/* end of vww.a t/ 
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